ooooeeece 


下 LT 
站 但 邮 


人 2 0 = 小 二 人 多 有 2 


朱 国 江 “ 杜 晓 彝 


钴 丰 兴 “ 逢 建 隆 ” 顷 省 


乱 系 和 出 让 放 


内 容 简 介 

本 书 系 统 地 介绍 了 交互 式 绘图 程序 设计 、 实 用 图 形 管理 划 杆 与 、 机 回 语 
言 绘图 技术 等 内 容 。 选 题 广泛 ， 取 材 新 ， 叙 述 详尽 。 

本 书 与 (中 华 学 习 机 编程 技巧 兴 气 象 出 版 性 ，1988 征 2 上 月 出 版 )，《 中 华 学 
习 机 数据 处 理 》( 气 象 出 版 社 ，1989 年 12 月 出 版 ) 各 《中 化 学 引 忆 汉字 软件 》 
(气象 出 版 社 ，1990 年 2 月 出 版 ) 等 成 系列 书 。 本 节 以 国家 教育 委员 会 指定 扒 
广 的 优秀 机 型 一 一 中 华 学 习 机 为 选 型 机 ， 适 用 于 APbP1.LE1 兼容 机 ， 烷 会 [ 
系列 机 。 

本 书 可 供 大 专 院 校 师 生 ， 工 程 技术 人 员 ， 微 机 应 用 、 管 理 人 员 和 广大 青 
少年 参阅 ， 也 可 作为 各 类 培训 班 的 教学 参考 书 。 


中 华 学 习 机 图 形 管理 


朱 国 江 “ 杜 晓 荣 入 丰 兴 孙 建 隆 编 闭 
责任 编辑 。 黄 丽 瑟 
不 和 由: 委 旭 出 版 
北京 半 启 夺 多 脐 4 号 ， 
新 华 书店 总 店 科技 发 行 所 发 行 全 国 各 地 新 华 节 出 经 销 
北京 印刷 一 厂 印刷 
开本 ，787X1092 1/32 印张 ，18 
字数 ，382 “ 千 字 印 数 ，1 一 8000 
1991 年 2 月 第 一 版 1991 年 2 月 第 -次 印 出 
ISBN 7-5029-0425-5/TP。0022 定价 9.10 


山 ， 


前 


计算 机 图 形 学 以 其 强大 的 生命 力 ， 正 在 许多 领域 得 到 日 
益 广泛 的 普及 和 应 用 。 机 械 制造 业 的 C A D 系统 、 电 气 工 程 
的 布局 设计 、 建 筑 学 上 的 平面 布置 、 市 政 建设 规划 安排 ， 正 
在 越 来 越 多 地 使 用 图 形 学 这 一 有 力 工具 。 在 自然 科学 方面 ， 
生物 学 、 物 理学 、 化 学 、 测 绘 学 、 气 象 学 等 学 科 ， 利 用 计算 
机 图 形 显示 将 使 问题 变 得 更 加 直观 和 容易 理解 。 艺 术 家 们 运 
用 计算 机 图 形 学 这 个 现代 化 方法 ， 进 行 图 案 设 计 动画 制作 ， 
将 使 作品 更 加 丰富 多 采 ， 棚 棚 如 生 。 在 商业 和 行政 管理 上 ， 
运用 曲线 图 、 直 方 图 等 可 使 枯燥 烦 杂 的 统计 数据 变 得 一 目 了 
然 。 对 决策 机 构 ,， 比 起 令 人 目眩 的 数字 来 更 会 受到 欢迎 。 心 
理学 的 专家 研究 表明 ，. 具 有 动画 、 声 音 的 冒险 ， 战 略 对 抗 ， 
战斗 模拟 和 博弈 游戏 对 提高 儿童 智商 有 着 重要 的 作用 。 而 在 
计算 机 辅助 教学 C AI 中 ， 先 进 的 图 文 并 茂 、 声 图 并 茂 技术 ， 
更 有 广阔 的 应 用 前 景 。 

本 书 提 供 的 图 形 管理 方面 的 程序 设计 、 方 法 思路 、: 实 用 ， 
技巧 和 工具 软件 ， 旨 在 加 深 对 图 形 学 基本 内 容 的 了 解 ， 掌 握 
运用 图 形 语言 和 有 关 算 法 ， 以 及 生成 各 种 画面 的 基本 技巧 ， 
为 进一步 开展 C A D 研究 和 计算 机 图 形 学 的 深入 应 用 打下 基 
础 。 从 这 个 角度 来 说 ， 本 书 是 关于 描述 计算 机 图 形 学 的 深入 
浅 出 的 实用 参考 书 。 

本 书 以 大 量 的 实例 ， 多 种 选 题 ， 介 绍 BASIC 语 言 
6502 机 器 语言 在 图 形 设计 和 图 形 管 理 方面 的 应 用 。 取 材 新 颖 ， 


文字 流畅 ， 人 叙述 详尽 ， 循 序 渐 近 。 书 中 提供 了 一 定数 量 的 工 
具 软 件 和 大 量 的 管理 程序 ， 也 有 作者 多 年 实践 经 验 的 总 结 ， 
其 中 大 部 分 内 容 , 是 现行 同类 国内 外 书籍 和 资料 中 所 没有 的 ， 
具有 较 高 的 应 用 价值 。 相 信和 会 给 广大 读者 提供 切实 而 有 益 的 
帮助 。 

本 书 资料 主要 来 自作 者 编程 和 教学 实践 ， 同 时 还 吸收 了 
国内 外 的 先进 经 验 ， 也 选用 了 少量 书籍 和 杂志 上 发 表 的 优秀 
文章 。 书 中 盖 述 的 原理 、 方 法 、 思 路 和 技巧 ， 对 计算 机 辅助 
教学 、 图 形 处 理 辅助 设计 和 制造 、 游 戏 软件 开发 ， 办公室 自 
动 化 等 领域 有 参考 价值 。 而 全 部 程序 和 工具 软件 均 经 严格 调 
试 通过 ， 可 以 直接 付 诸 使 用 和 移植 。 

本 书 共 分 三 篇 25 章 ， 第 一 篇 全 部 用 BASICG 语言 编程 
由 杜 晓 荣 编写 ， 第 二 篇 用 BASIC 和 6502 机 器 语 衣 编程; 由 
朱 国 江 (1,2,3,4,5,9,10 章 )、 孙 建 隆 (6,7,， 8, 11, 12 章 ) 统 
一 设计 , 共同 调试 ， 分 别 编写 ， 第 三 篇 用 6502 机 器 语言 编程 ， 
由 往 丰 兴 编 写 。 全 书 由 朱 国 江 统一 审 校 。 

系列 书 的 出 版 ， 得 到 中 国 计 算 机 用 户 协会 紫金 分 会 兰 越 
汉 天 问 电脑 公司 、 中 国 中 华 学习 机 普及 协会 、 国 家 气象 属 训 
象 出 版 社 、 软 件 报社 : -南京 大 学 大 气 科 学 系 邹 进 上 教 援 、 李 
宗 恺 教授 、 周 朝 辅 高 级 亚 程 师 ， 南 京 大 学 出 版 社 花 国良 同志 
的 热情 鼓励 和 大 力 支 振 沪 在 此 一 并 表示 谢意 。 

说 以 此 书 ， 献 给 广大 家 少 年 计算 机 教育 工作 上 着 、 微 机 爱 
好 者 ， 献 给 关心 “中 华 学 习 机 ”事业 的 广大 沁 督 ， 贝 给 支持 
中 华 学 习 栅 发 展 的 各 界 同仁 ， 献 给 “计算 机 雪 从 录 处 抓 起 ?3 
辉 题词 五 周年 。 
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第 一 篇 
交互 式 绘图 程序 设计 


第 一 章 绘图 原理 


中 华 学 习 机 具有 在 显示 器 〈 或 电视 机 ) 屏幕 上 显示 图 形 
功能 。 本 章 主要 介绍 微型 机 的 绘图 特性 、B AS 1C 语 言 绘图 
原理 、 造 型 原理 、 几 种 生成 图 形 的 方法 及 交互 绘图 的 基本 概 
念 。 


第 一 节 ”中 华 学 习 机 的 绘图 特性 


计算 机 绘图 对 不 同 的 人 来 说 意义 不 一 样 ， 有 些 人 想到 了 
游戏 机 ， 另 一 些 人 想到 了 训练 用 的 模拟 器 ， 服 装 师 可 以 把 计 
算 机 绘图 功能 作为 一 种 规划 的 方法 ， 并 在 设计 服装 时 用 来 做 
图 形 显示 ， 工 程 师 可 利用 计算 机 绘图 来 分 析 电 子 电路 、 机 械 
结构 或 辅助 设计 ， 而 教师 可 用 来 作为 辅助 教学 的 工具 ,等 等 。 
总 之 ， 计 算 机 绘图 的 应 用 是 广泛 而 多 方面 的 。 

中 华 学 习 机 与 APPLEH 微型 机 兼容 ， 有 关 绘 图 语言 
有 浮 点 BAS1IC 语 言 . LOGO 语言 ，SUPER  PILILOTT 


1 


语言 。 图 形 软 件 有 通用 造型 软件 包 ，APPLEH 绘 图 系统 
尘 等 本 篇 及 所 属 各 章 主要 介绍 以 浮 点 BAS1C 语 言 为 基础 
的 绘图 模式 。 

一 、 屏 幕 显 示 和 屏幕 方式 

1。 屏 医 显 示 

中 华 学 习 机 可 以 采用 专用 显示 器 ,或 家 庭 用 黑白 电视 机 、 
彩色 电视 机 ， 它 既 可 以 显示 西 文字 母 、 数 字 、 符 号 和 汉字 文 
本 ， 也 可 以 显示 图 形 。 

2. 屏幕 方式 

由 计算 机 输入 到 显示 器 中 的 信息 在 屏幕 上 的 显示 方式 有 
五 种 , 即 文本 方式 、 低 解析 度 图 形 方 式 、 高 解析 度 图 形 方式 、 
图 形 和 文本 混合 方式 及 中 文 方式 。 所 谓 解析 刻 是 指 一 个 图 形 
表达 细微 部 分 能 力 大 小 。 一 个 图 形 可 由 一 个 个 点 组 合 而 成 ， 
如 果 这 些 点 很 细密 ， 则 图 形 会 非常 细致 ， 每 一 个 细节 都 显示 
得 清楚 ， 这 就 是 说 解析 度 高 。 如 果 同 一 幅 图 形 用 很 大 的 点 去 
描绘 ， 使 很 多 细节 都 无 法 表示 ， 则 解析 度 低 。 

二 、 屏 幕 存 贮 方式 ~ 

计算 机 的 屏幕 显示 是 将 存 贮 在 RAM 或 ROM 中 的 部 分 
信息 显示 出 来 。 由 于 这 个 特性 ， 作 为 绘图 的 起 点 ， 让 我 们 先 
讨论 存 贮 器 的 分 配 情况 。 

中 华 学 习 机 有 48K BRAM，16KBROM， 共 64K B 
(65536 个 字 节 ) 的 内 存单 元 。 文 本 方式 和 低 解 析 度 图 形 方式 
放 在 一 个 存 贮 容量 1024 个 单元 的 内 存 区 中 ， 用 以 存放 一 个 文 
本 或 低 解 析 度 屏幕 的 全 部 信息 。 在 高 解析 度 图 形 方式 中 ， 由 
于 要 显示 较 多 的 信息 ， 使 用 了 一 个 存 贮 容量 为 8192 单 元 的 另 
一 个 内 存 区 。 这 两 个 内 存 区 通常 称 为 “页 ”(PAGE ),， 后 者 
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十 专用 来 存放 图 形 ， 故 又 称 为 “图 形 缓冲 区 ”。 
显然 ， 如 果 只 用 一 页 内 存 区 来 存放 信息 ， 不 可 能 达到 用 
以 连续 显示 的 要 求 ， 因 此 ， 为 了 提高 实时 显示 速度 ,实际 上 ， 
每 种 显示 方式 都 设置 了 两 个 容量 相同 的 内 存 区 ,分 别称 为 “第 
一 页 ”和 “第 三 页 思 一 页 用 来 存放 信息 ,， 另 一 页 用 来 取信 息 
显示 。 两 页 间 循 环 交替 工作 ， 以 达到 连续 显示 的 目的 。 各 种 
显示 方式 在 存 贮 器 中 的 分 配 情况 见 表 1.1。 
表 1.1 各 种 显示 方式 内 存单 元 分 配 表 : 


本 本 
IE 
16384 


三 、 屏 幕 方式 的 切换 ， 

加 电 后 屏幕 处 于 西 文 BASIC 控制 之 下 ,也 就 是 处 于 文 
本 方式 ， 为 使 用 方便 ， 在 BASIC 语言 中 设置 一 些 命 令 ， 可 
实现 屏幕 显示 方式 的 转换 ， 这 样 的 命令 有 : 

个 EXT 置 文本 方式 

.GR 置 文本 和 低 解 析 度 图 形 混合 方式 

HGR 置 文本 和 高 解析 度 图 形 混合 方式 

HGR2 置 高 解析 度 图 形 方 式 

土 述 命 令 可 立即 执行 ,也 可 前 面 带 行 号 编 在 程序 中 使 用 。 
除了 上 述 命令 可 实行 屏幕 的 切换 ， 中 华 学 习 机 也 可 通过 软 开 
关 来 访问 内 存 ， 也 能 达到 类 似 的 作用 。 所 谓 软 开 关 ， 它 有 开 
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和 关 两 种 状态 ， 由 计算 机 软件 控制 ， 故 称 之 为 软 开关 。 程 序 
访问 一 个 指定 的 内 存单 元 就 能 进入 相应 的 开关 状态 ， 且 与 访 
问 时 对 这 个 内 存 所 写 入 或 读 出 的 数据 无 关 ， 而 且 只 与 它 的 地 
址 有 关 。 

关于 用 软 开 关 来 实现 屏幕 的 切换 ， 在 后 绪 章 节 介 绍 。- 


第 二 节 文本 方式 下 的 图 形 绘制 一 


文本 绘图 是 指 在 个 正 XT 方 式 下 ， 利 用 BASIC 语句 和 
函数 ， 在 某 些 指定 位 置 上 打印 字符 或 符号 来 绘制 图 形 的 。 

处 于 文本 方式 下 ， 屏幕 从 上 至 下 为 24 行 ， 每 行 可 显示 40 
个 字符 ， 字 符 在 机 内 存放 采用 ASC II 码 ， 可 正常 显示 64 个 
字符 。 

字符 在 屏幕 上 显示 有 三 种 方式 ， 正 常 显示 〈 黑 底 白字 )， 
反 显 示 方 式 〈 白 底 黑 字 ) 和 闪烁 显示 方式 ， 可 分 别 通 过 三 个 
命令 NORMAL 、INVERSE 和 FLASH 来 实现 。 

这 三 个 个 令 可 立 针 入行 也 可 可 这 苦行 号 和 在 程序 之 中 

、 光 标 位 置 的 控制 

这 里 介绍 _- 一 组 语句 与 PRINT 语句 相 结 合 ， 可 灵活 设计 
屏幕 的 文本 格式 显示 。 

HOM 匡 命令 . 

这 个 命令 的 功能 为 清除 整个 屏幕 ， 将 光标 移 到 文本 窗口 
的 左上 角 。 

VTAB 语 铝 

格式 ; V TITA B 和 定位 值 

该 语句 的 功能 为 ， 用 于 屏幕 光标 垂直 方向 的 定位 。 定 位 
值 由 算术 表达 式 确定 ,其 值 为 1 一 24， 有 小 数 部 分 自动 含 去 。 
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HTAB 语 名 

格式 ，HTAB 定 位 值 

该 语句 的 场 能 为 ， 用 于 屏幕 光标 水 平方 向 的 定位 。 定 位 
人 由 算术 表达 式 来 确定 ， 其 值 为 0 一 255, 全 相当 0 号 位 置 。 

TAB 函数 

格式 ，TAB (参数 值 ) 

该 函数 功能 类 似 于 HTA B 语 句 ， 参 数值 由 算术 表达 式 
确定 ， 其 值 由 0 一 255; 有 小 数 部 分 舍 去 ， 若 为 零 , 则 按 256 处 
理 。 与 HTA B 不 同 的 是 个 A B 函 数 必须 放 在 PR INT 语 名 
中 ， 且 当 算 术 表达 式 值 小 于 光标 当前 所 在 列 号 时 ， 个 A B 函 
数 不 起 作用 ， 即 它 不 能 使 光标 后 退 。 

PO AS 函数 

格式 ，POS (人 0) 

这 个 函数 给 从 出 光标 当前 位 置 为 当前 行 了 的 第 几 个 字符 位 置 ， 
左 端 从 零 算 起 。 

SPC 函 数  ，.e 

格式 ，SPC (8 ) 

这 个 函数 必须 用 在 PRINT 语 句 中 ， 它 的 功能 是 在 输出 
项 之 前 插入 若干 个 空格 〈 本 例 是 8 ), 它 一 边 移动 ,一边 氛 出 
扫描 过 位 置 上 的 内 容 ， 其 空格 数 由 参数 式 子 来 确定 。 

,二 、 文 本 方式 下 的 图 形 绘制 

由 上 面 介绍 的 语句 和 函数 ， 可 实现 不 同 字符 组 成 的 屏幕 
格式 或 不 同 图 形 ， 下 面 介 绍 几 个 实例 。 

1. 用 星 号 打印 一 个 等 腰 三 角形 〈 见 程序 G P1101 ) 


5 REM ，  GpBlLl01 
10 PRINT TAB( 20) ;mwn 


20 FOR I= 1 To 8 

30 .PRINT TAB( 20 一 IJ"x*n; SPC( 
2 灾 T 一 】) ;大 

40 NEXT 

50 PRINT SPC( 10) ; 

60 FOR I + 1 7T0 19 

70 BRINT "xn; 


30 NEXT 
90 END 
URUN 
其 
其 其 
其 其 
其 其 
并 其 
其 其 
其 其 
其 其 
其 其 


其 其 其 其 其 其 其 其 其 其 其 其 其 其 其 其 其 其 其 


2. 程序 GP1102 可 以 打印 正弦 曲线 


]LORAb GP1102 
JLIST- 


5 REM  GP1102 

10 DIM D(40,20) 

20 FOR X = 1 TO0 30 

30Y= INT (-7，* SIN (X * 360 


/ 30) ) 
40 D(X;7 -YY) = 1 
20 NEXT X 
60 FORY = 1 TO 14 
70 FEORX= 1 TO 30 


X) ， 0 炎 9 
90 NEXT X  -: 
100 “PRINT 
110 NEXT YY 
120 END 


URUNI 
凑 其 其 其 其 
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第 三 节 ，” 低 解析 度 图 形 


低 解析 度 ， 是 指 图 形 的 解析 度 较 低 ， 换 句 话说 ， 这 类 图 

形 是 由 较 大 的 色 块 来 组 成 ， 不 能 桓 出 较 细密 的 图 形 。 
、 低 解析 度 图 形 屏 莫 

> 低 角 度 屏 帮 相当 于 一 个 直角 从 村 系 ， 它 的 原点 在 飞 
的 左 寺 角 ,，X 轴 沿 着 项 端 一 行 向 右 ， 取 值 为 0=-39， 立 轴 为 
沿 着 顶端 左边 一 列 向 下 ， 取 值 为 0 一 47。 

屏幕 之 所 以 首 划 分 为 40 列 、48 行 ， 是 由 于 低 解析 度 图 形 
在 内 存 的 存 贮 区 借用 了 文本 方式 下 的 屏幕 存 贮 区 造成 的 ， 这 
一 区 域 . 是 内 存 的 1024 号 到 2047 号 单元 。 


前 节 介 绍 过 ， 文 本 方式 下 ， 屏 幕 被 划分 成 40 x 24 个 字符 
位 置 ， 可 见 一 个 字符 位 置 恰好 是 低 解析 度 图 形 的 上 下 两 个 色 
块 。 我 们 知道 ， 字 符 在 内 存 中 是 以 A S CII 码 存放 的 ， 一 个 
A SCII 码 占用 = 不 字 节 ， 即 八 位 二 进 制 数 。 实 际 上 ， 在 低 
解 征 度 图 形 方 式 下 ， 图 形 缓冲 区 的 任 一 个 字 节 八 位 被 分 成 的 
右 四 位 、 左 四 位 分 别 表 示 上 下 两 个 图 块 。 

四 位 二 进 制 数 可 表示 十 进 制 的 0 到 15 这 16 个 数 ， 中 华 学 
习 机 利用 这 16 种 码 来 代表 16 种 不 同 的 颜色 ， 见 表 1. 2。 


表 1.2 低 解 析 上 度 图 形 的 颜色 


- 深 [ [这 中 | 浅 灰 | 粉 | 浅 绿 
黑 | 红 紫 | 棕 | 查 黄 

| 本 绿 蓝 | 蓝 2 | 红 | 绿 蓝 

日 日 日 昌 轴 昌 申 加 日 昌国 四 加 国 加 


二 、 低 解析 度 图 形 方式 

低 解析 度 有 图 形 方式 和 图 形 与 文本 混合 方式 两 种 。 

1. 混合 方式 

格式 ，GR 

这 个 命令 一 是 进入 低 解析 度 图 形 屏幕 ， 屏 幕 下 边 留 有 4 
行文 本 区 ， 为 画图 作 好 准备 ， 二 是 清除 屏幕 ， 将 屏幕 置 成 黑 
色 。 


2. 图 形 方式 
在 进入 低 解 度 混合 方式 ， 您 若 想 去 掉 4 行文 本 ， 使 屏幕 
成 为 纯 图 形 方 式 ， 可 用 下 述 命令 
POKE 一 16302， 0 
3。 从 纯 图 形 方式 返回 到 混合 方式 
通过 访问 地 址 一 16301 或 用 “GR2” 人 命令， 可 返回 到 混 


合 显示 方式 。 

例 1， POKE -16301， 0 

该 命令 保持 当前 40 列 图 形 不 变 而 将 4 行文 字 行 恢复 。 

G 下 

该 命令 清除 屏幕 图 形 后 并 恢复 到 混合 显示 方式 。 

三 、 低 解析 度 绘图 语句 

下 面 介 绍 在 低 解析 度 图 形 方式 下 的 绘图 语句 ， 其 中 有 置 
图 形 颜 色 、 画 点 、 画 线 及 返回 坐标 点 颜色 的 语句 和 函数 。 

1. 设 定 颜色 语句 . 

格式 :- COLOR=nm 

为 设 定 颜色 的 语句 。 其 等 号 右边 的 可 为 表达 式 、 其 值 
在 0 一 255 之 间 ， 超 过 16 的 ， 取 被 16 除 后 的 余数 ， 有 小 数 部 
分 自动 舍 去 。n 值 的 含义 见 表 1. 2。 

2. 在 指定 位 置 上 画 点 

格式 ，PLOT X，Y 

为 画 点 语句 ， 表 示 在 〈X，Y) 坐标 上 画 出 一 点 。 该 点 
为 一 个 小 的 长 方形 色 块 。X 取 值 为 0 一 39， 立 取 值 为 0 一 47。 

3. 绘 直线 语句 

dd 绘 水 平 线 

格式 ，HLIN Xi，X2 AT Y 

。 为 画 水 平 线 语 句 ， 表 示 从 坐标 点 〈X1,Y) 到 坐标 点 
C(X2，Y) 画 一 条 水 平 线 。X1、X 2 的 取 值 范围 在 0 一 39， 
Y 取 值 范围 在 0 一 47。 

@) 画 垂直 线 、 

格式 ，VL IN Yi，Y2 AT X 

为 画 垂 直线 语句 ， 表 示 从 坐标 点 (X，Y1) 到 坐标 点 
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(X,Y2) 之 间 画 一 条 垂直 线 。Y1 和 2 的 取 值 范围 在 0 一 47 
之 间 , X 的 取 值 范围 为 0 一 39，Y1、Y2 和 X 超 出 上 述 范 围 ， 
计算 机 将 给 出 出 错 信息 。 

4. 返回 指定 坐标 点 的 颜色 值 

格式 ，SCRN (X，Y) 

这 是 一 个 函数 ， 该 函数 返回 低 解 析 度 图 形 方式 下 〈X， 
Y) 坐标 点 的 颜色 值 。. * 

例如 ，X=SCRN (12，30) 

将 第 13 列 第 31 行 处 的 点 的 颜色 的 代码 值 放 入 变量 X 中 。 

以 上 语句 ， 可 以 写 入 B AS 1C 程 序 中 ， 也 可 以 处 于 立即 
执行 方式 ， 其 中 X、Y 能 以 算术 表达 式 出 现 。 

四 、 实 例 

1. 用 画 点 语句 画 一 个 等 腰 三 角形 〈 见 程序 G P1103 ) 

]LORAD GP1103 

]LIST 


5 REM GPL103 
20 GR 
30 COLOR= RND (16) * 16 + 1 
40 FOR Y = 20 TO 30 
45 X = YY -.10 
50  PLOT Y,Y 
52  PLOT X,50 -YY 
55  PLOoT X,，30， 

60  PLOT Yv,30 

70 NEXT 

100 GoToO 30 

执行 程序 G P1103， 可 以 在 屏幕 的 中 间 位 置 画 一 个 颜色 
不 断 改 变 的 等 腰 三 角形 。20 句 为 进入 低 解 度 图 形 方 式 ，30 句 
为 改变 颜色 ，40 一 70 旬 循环 为 用 点 画 出 等 腰 三 角形 。 
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2. 用 画 线 语句 画 等 腰 三 角形 〈 见 程序 GP 1104 ) 


5 REM GBP1104 
10 GR 


40 X1 = JI- 19:X - 30 -1yJ 
50 HLIN X1,X RhT JJ 

60 VLIN xl,X RAT J 

70 NEXT 


.执行 程序 GP 1104; 可 以 在 屏幕 的 适当 位 置 画 两 个 等 腰 
三 角形 ， 这 两 个 三 角形 都 充填 柴 色 。 


第 四 节 。 高 解析 度 图 形 


高 解析 度 图 形 克服 了 低 解 析 度 图 形 方式 的 缺点 ， 能 绘 出 
较 精 细 的 图 形 ， 主 要 是 增加 屏幕 缓冲 区 的 内 存 来 实现 。 

一 、 高 解析 度 屏 幕 

高 解析 度 屏幕 坐标 原点 设 在 左上 角 ,，-X 轴 方 向 向 右 ， 取 
值 范围 为 0 到 279，Y 轴 方向 向 下 取 值 范围 在 0 至 19 1 之 间 。 
整 幅 屏幕 由 192x 280= 5376 0 点 阵 的 象 素 构 成 。 

在 低 解析 度 图 形 方 式 下 ， 一 个 字 节 可 显示 两 个 色 块 ， 而 
在 高 解析 度 图 形 方式 下 ， 八 位 二 进 制 的 后 七 位 的 状态 是 1 还 
是 0 分 别 表示 在 7 个 位 置 上 有 点 还 是 无 点 。 这 样 从 左 到 右 由 
40 字 节 可 表示 屏幕 的 一 行 信息 ， 即 280 个 象 素 ， 由 于 整 幅 有 
192 行 , 故 需 要 40X 19 2 =7680 个 字 节 才能 完整 地 表示 高 解 度 
图 形 。 中 华 学 习 机 设置 了 两 个 图 形 缓冲 区， 分 别称 为 第 一 页 
和 第 二 页 ， 从 8192 到 16384 和 16384 到 24576, 每 个 区 域 的 长 
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度 为 8192 字 节 ， 稍 大 于 7680， 这 主要 是 计算 地 址 方便 ， 因 为 
8192 的 十 六 进 制 为 $2000。 

一 个 字 节 的 后 七 位 表示 ?7 个 象 素 点 ， 只 剩 下 一 位 用 来 控 
制 颜色 ， 那 就 只 能 控制 两 种 状态 (1 或 0 ), 这 虽然 是 不 好 的 。 
为 此 对 颜色 的 控制 采取 了 以 下 补救 方法 : 

高 解析 度 颜色 有 ?7 种 ， 用 语句 来 设 定 ， 对 应 关系 见 表 
1.3 。 


生 


表 1.3 ”高 解析 度 图 形 的 颜色 


需要 注意 的 是 ， 点 的 颜色 由 下 列 因素 决定 ， 当 点 的 相应 
位 为 0 时 ， 对 应 屏幕 为 一 个 黑 点 ， 点 相应 为 1 时 ， 还 由 点 在 
屏幕 的 相对 位 置 来 确定 显示 的 颜色 

处 在 偶数 列 上 的 点 可 能 为 黑 、 紫 或 蓝 色 。 

处 在 奇数 列 上 的 点 可 能 是 黑 、 绿 或 橙色 。 

两 个 紧 靠 着 的 颜色 点 全 显示 白色 。 

二 、 高 解析 度 图 形 方式 

高 解析 度 有 图 形 方 式 和 图 形 与 文本 混合 方式 两 种 。 

1. 混合 方式 第 一 页 

格式 :HGR 

该 语句 置 屏 幕 为 高 解析 度 图 形 与 文本 混合 方式 、 显 示 第 
一 页 ， 将 屏幕 上 除 最 下 边 的 4 行 作为 文本 输出 外 ， 其 余部 分 
设 定 为 黑色 。 

如 果 你 想 显 示 高 解析 度 第 一 页 混合 方式 而 不 清除 图 形 ， 
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可 用 下 述 命 令 

POKE 一 16304，0 选 图 形 方式 

POKE 一 16297, 0 选 高 解析 度 图 形 

POKE 一 16301，0 选 混合 方式 

2. 纯 高 解析 度 图 形 方式 

用 HGR 语句 只 能 进入 高 解析 度 与 文本 显示 的 混合 方式 。 
这 种 方式 的 屏 蓝 区 显示 280 x 160 个 扩 ， 并 在 屏幕 下 面 有 4 
行文 本 显示 区 。 


进入 纯 图 形 方式 可 用 下 述 命令 : 

第 一 页 
HCR:， POKE 一 16302 ， 0 
第 二 页 

HGR 2 


如 果 你 想 返 回 到 高 解析 度 图 形 与 文本 的 混合 方式 ， 可 执 

行 下 述 命 令 : 
POKE 一 16301，0 

三 、 高 解析 度 绘 图 语句 

1. 高 解析 度 的 颜色 

格式 ，HCOLOR = 

该 语句 置 高 解析 上 度 图 形 的 颜色 。 在 高 解 度 图 形 方式 下 有 
8 种 颜色 ， 见 表 1.3，n 的 取 值 范围 在 0 一 7 之 间 。 

例如 HCOLOR= 2 

设置 高 解 度 图 形 的 颜色 为 蓝 色 。 

当 m 值 为 1、2 、5、6 的 4 种 颜色 ， 对 于 不 同 彩色 显 
未 村， 其 颜色 也 有 所 不 同 。 

. 绘图 语句 


格式 ，HPLOT  X，Y 

为 面 点 的 语句 。 表 示 在 坐标 (X，Y ) 处 以 最 近 设 定 的 
颜色 画 出 一 个 点 。 

格式 2，HPLOT TO X，Y 

从 上 一 次 画 的 最 后 一 个 点 (X，Y) 坐标 之 间 画 一 条 直 
线 。 

格式 3 ， HPLOT X1，Y1 TO-X2Y2…… TO 
Xn ，Yn 

为 画 折线 语句 。 从 〈Xl; Y1 ) 到 (X2 ， Y2) 之 间 画 一 条 
线 ， 再 从 (X2, Y2) 到 (X3, Y3) 画 一 条 线 ， 依 次 画 下 去 ， 
直到 Xm Yn 的 折线 。 如 果 各 点 离 得 足够 近 ， 就 能 画 反 似 的 
曲线 ，X 、 Y 必 须 成 对 出 现 ， 其 取 值 范围 不 能 超过 内 帮 ， 股 
X， 立 可 取 算 术 表达 式 。 

四 、 实 例 

1。 用 画 点 的 办 法 ， 作 出 一 条 SIN 〈X ) 曲线 

程序 如 GP1105 所 示 。 

5 REM GBP1105 

10 HGR : POKE  - 16302，0 

20 ”8HCOLOR= 3 

.25 HPLOT 0,80 TO 270,80 

28 HPLomT :99 TO 0,180 

30 PI = 3. 14153 / 180 

40 FOR IT =.0 To 120 

50 X= 2 # 开 : Y= 80 -60x* SIN ( 

3 炎 I yw PI) 

60 “HPRLOTE XXX,Y 

70 NEX 工 

80 ”END 


程序 GP1105 所 画 的 图 形 见 图 1.1 


图 1.1 正弦 曲线 


2. 程序 GP 1106， 可 在 屏幕 上 画 出 5 个 同心 酉 圆 〈 见 
图 1.2 ) 


5 REM  GP1106 

10 R1 = 15:R2 = 10 

20 _HGR2 : ECOLOR= 3 

30 PI = 3.14159 / 180:X0 = 120:Y0 
= 90 

40 FOR I =1705 

50 FOR J = 1 7?0-366 STEPB 5 . 
70X= Xo+RLIx*Iw SIN (PI * 1 


本 ):Y = Y0O0 +R2xIw* Cos (BI 
80 HPLOT X,Y 
90 NEXT J 
100 NEXT 1 
110 “END 


当 R1I 与 R2 取 同 值 ， 则 可 画 出 5 个 同心 圆 ， 见 图 1.3 。 
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1.2 同心 闯 圆 图 1.3' 同心 圆 
第 五 节 交互 绘图 基本 概念 


前 面 三 节 介绍 了 中 华 学 习 机 几 种 图 形 的 表示 法 。 低 解析 
度 图 形 分 辨 低 ， 但 显示 内 存 开 销 小 ， 具 有 较 多 颜色 ， 高 解析 
度 图 形 分 辩 率 相对 较 高 ,能 画 较 精 细 的 图 形 ,上 且 还 具有 造型 表 
功能 ， 具 有 较 大 灵活 性 。 以 后 章节 主要 讨论 在 高 解析 度 状态 
下 图 形 显示 及 图 形 管理 。 

事实 上 ， 在 计算 机 辅助 设计 〈C A D ), 计 算 机 辅助 教学 
(C A ID) 和 构造 模型 中 ， 图 形 已 作为 观察 和 交互 手段 ， 正 如 
一 句 中 国 颜 语 “一 幅 图 顶 得 上 一 千 个 字 ” 一 样 ， 因 为 我 们 可 
以 快速 而 容易 地 从 说 明 图 或 动画 过 程 中 抓 住 一 个 概念 或 情况 
的 实质 。 

在 高 解析 度 状态 下 ， 中 华 学 习 机 提供 了 两 种 生成 图 形 的 
方法 ， 点 线 法 和 造型 法 。 点 线 法 是 用 HPLOT 语句 编程 生 
成 图 形 ， 而 造型 法 是 事先 按 图 形 轨迹 要 求 制作 一 张 造 型 表 ， 
然后 再 用 DRAW 语句 编程 调用 。 前 者 可 实现 函数 参数 绘图 ， 
显示 速度 慢 ， 后 者 生成 造型 表 较 困 难 ， 但 显示 速度 快 ， 可 满 
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足 动画 的 制作 。 这 两 种 生成 图 形 方 法 都 要 编程 或 者 借助 于 一 
些 辅助 性 工具 制作 造型 表 ， 这 种 方式 称 为 “ 害 动 式 作 图 ” 用 
这 种 方式 作 图 ， 创 作 一 幅 图 形 较 麻 烦 ， 由 于 中 华 学 习 机 内 存 
较 小 ， 有 时 实现 一 幅 复杂 图 形 需 要 用 程序 覆盖 技术 来 实现 。 
这 样 我 们 想 能 否 不 需要 编程 ， 让 用 户 通过 键盘 与 屏幕 交互 作 
用 来 满足 以 下 一 些 要 求 ， 

。 不 需要 编程 ， 交 互 作 用 生成 一 幅 由 HPLOT 语句 给 
制 的 图 形 ， 可 对 这 幅 图 形 移动 ， 放 大 处 理 ， 且 能 保存 这 幅 图 
形 。 

. 不 需要 编程 ， 交 互 作用 生成 一 幅 由 HPLOT 语句 给 
制 的 图 形 ， 同 时 也 能 将 显示 的 图 形 转换 成 相应 的 造型 表格 式 
来 存 贮 。 

。 不 需要 编程 ， 用 交互 作用 的 方式 对 造型 表 中 显示 的 子 
图 形 实现 动态 地 插入 ， 复 制 一 幅 图 形 或 生成 指定 某 个 造型 在 
屏幕 上 移动 的 动画 轨迹 。 

回答 是 肯定 的 ， 我 们 在 中 华 学 习 机 根据 友好 的 人 机 界面 
要 求 ， 按 照 模 块 化 程序 设计 思想 ， 编 制 了 一 个 实用 的 交互 图 
形 工具 一 一 通用 造型 软件 包 ， 图 1. 4 为 在 中 华 学 习 机 上 借用 
该 工具 软件 ， 完 成 的 减速 器 拆 装 模 拟 系统 过 程 的 某 个 动画 时 
刻 的 硬 拷 贝 ， 从 图 形 的 制作 到 动画 生成 ， 完 全 交互 完成 ,在 
拆 印 或 装配 过 程 中 ， 所 有 的 信息 都 装 入 内 存 ， 不 与 软盘 交换 
信息 。 

本 篇 的 第 二 章 主要 围绕 这 个 造型 工具 ， 介 绍 交互 绘图 程 
序 的 建立 以 及 编程 思想 ， 并 给 出 一 些 实用 的 交互 绘图 ， 交 互 
生成 造型 的 程序 。 

所 谓 交 互 式 绘图 ， 即 用 户 可 以 借助 于 交互 设备 ， 例 如 键 
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十 14 二 级 图 锥 圆柱 贞 驼 减速 器 
盘 ， 数 字 化 板 、 鼠标 器 等 对 疼 形 内 容 、 格 式 、 大 小 和 色彩 在 
显示 屏 葛 上 实现 动态 控制 ， 最 终生 成 一 幅 图 形 。 以 后 带 节 谈 


到 的 交互 线 团 ， 办 六 设备 为 健 检 , -输出 设 告 翘 星 示 器 或 打字 
机 的 宣 持 员 ，… 


第 二 章 ， 点 线 法 交互 程序 


本 章 介 绍 的 系列 程序 ， 可 达到 下 述 要 求 : 

“友好 的 人 机 界面 。 

“ 可 交互 地 生成 任意 方向 的 直线 、 圆 、 圆 弧 。 

能 实现 对 图 形 的 放大 、 缩 小 、 旋 转 、 移 动 。 

' 能 保存 各 子 图 形 的 有 关 参 数 。 

针对 上 述 各 项 要 求 ， 我 们 分 节 介绍 程序 的 编制 思想 ， 并 
给 出 相应 的 程序 。 


第 一 节 ”友好 的 人 机 界面 


@ 友好 的 人 机 界面 准则 
衡量 一 个 交互 程序 的 成 功 与 失败 ， 是 否 方便 使 用 ， 至 少 
和 它 的 功能 一 样 重要 ， 
在 写 交 互 程序 时 ， 应 考虑 友好 的 人 机 界面 。 其 遵循 的 一 
般 原则 为 : 
“ 提供 简单 的 、 前 后 一 致 的 交互 作用 顺序 。 
' 为 了 与 程序 进行 通讯 ， 不 要 过 多 地 选择 方案 和 格式 来 


加 攻 用 户 的 负担 。 

。 要 有 提示 。 

. 有 反馈 信息 ， 对 用 户 错误 的 输入 程序 应 有 坚固 性 要 
求 。 


在 下 而 涉及 的 交互 程序 实例 中 ， 我 们 试图 遵循 土 面 的 准 
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则 ， 具 体 采用 的 方式 有 图 形 及 其 汉字 提示 ， 加 求助 命令 。 告 
诉 每 个 命令 的 具体 含义 ， 程 序 按照 层次 模块 结构 。 在 本 篇 的 
最 后 一 章 ， 将 给 出 通用 造型 软件 包 的 设计 思想 及 总 体 结构 。 
程序 GP 1201 是 一 个 主 控 程序 及 相应 的 荣 单 命令 。 


@) 主 控 程 序 

5 REM CP12z01 

10 ICCOLOR- 了 

1I2 IOME : GOSUB 100 、 、 

20  VTAB 22: INDPUT Enter Selection:n 
) AS 

2595A= VAL (AS) 

30 IPA = 00R A> 8 THEN CALL 6 
S333: GOTO 20 

40 _ DbDN AGOSUB 500,600,700,800,300,10 
00,1100 

45 IJFEFA=8 THEN TEXT : END 

5S0. CGOTO 15 

100  VTRAB 2 

105 PRINT 1 党 业 几 宽 灾 守 寅 宝 灾 灾 突 兴 容 灾 火灾 灾 完 灾 评 汪 炎 灰 名 


110 PRINT "1--Draw Line。，" 
115  _ PRINT "2--Draw CircCle。" 
120 PRINT "3-~--Draw arC 。” 


125 PRINT "4--2Zoom 
130 PRINT "5~--~-Move 
135 PRINT "6--Save 
140 PRINT "7--Help. 
145 PRINT "8-- 了 na . 
150 “PRINT "六 福 次 炎 广 灾 太 炎 娘 灾 灾 宙 视 福 灾 宝 福 粮 妈 福 守 炎炎 太 1 


GQrawing." 
drawing .，” 
tile to Qisk。.” 


2z0npnopn0obp 


160 RETURN 

500 REM Drawa Line 
595 RETURN 

600 “REM Draw a circle 
695 RETURN 
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700 REM Draw'a azc 

709 RETURN 

800 REM 2oom a drawing9 

005 RETURN 

900 REM Move aa Grawinq 

0995 RETURN 

1000 REM save aa file to disk .。 
41005 RETURN 

1100 REM Help. 

1195 RETURN = 


时 程序 说 明 
程序 G P 1201 的 30 负 的 作用 为 ， 当 用 户 输入 不 是 屏幕 上 
的 选择 项 时 ， 机 器 网 响 ， 要 求 重新 输入 选择 项 。 
100 一 160 句 为 命令 菜单 于 程序 , 在 进 从 该 项 程序 运行 时 ， 
章 郴 显示 该 命令 菜单 ， 其 含义 为 : 
,绘制 直线 
, 绘 一 个 圆 ” 
, 绘 圆 弧 
。 缩放 一 幅 图 形 
。 移 动 一 幅 图 形 
。 求助 命令 
。 存盘 
。 结束 
程序 在 进入 求助 命令 模块 ， 按 照 交 互 程序 设计 准则 。 愤 
桥 上 最 好 有 图 形 提示 及 其 具体 操作 的 细节 说 明 。 


第 二 节 ， 直线 的 交互 实现 程序 


( 各 序 达到 的 功能 
本科 央 要 求 用 户 在 屏幕 上 用 拖 动 的 光标 输入 两 个 坐标 点 ， 
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然后 显示 这 二 点 的 连 线 ， 有 关节 点 数据 保存 在 数组 里 。 
G@) 源 程序 〈 见 G P 1202) 


4 REM  GP1202 

5 DIM As(500),B8%(500),Cc%(500),D%(500 
) ,BEBS%(500 ) 

6 CL = 10:X = 100:Y = 80:RARS = 1:HC = 
3 

7 HGR : POKE  - 16302,0 

40  HCOLOR= 3: HPLOT X, 


100 GET AS: HCOLOR= 0: HPLOT X,Y 
103 Es(JL) = Hc 

105 IF AS = "Rn THEN GO3SUB 700 
110 IFRAS = "In THENY =Y - Cl 
120 IF AS = "In THEN X = X - Cl 
130 IF AS = "Ln THEN X = X + Cl 
140 IF AS = "Mn THEN Y = Y + Cl 
150 IFAS =- "Nw THEN GOSUB .600-: 
155 IF AS = ncn ZHEN Go03UB 750 
160 IF AS = "Fw THEN Cl = ClL + 1 
162 GO3SUB 300 

170 IF AS = "" THEN CL = 1 

190 IF AS = CHRS (13) THEN CALL 65 
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338: GOSUB 230 
210 “ HCOLOR= 3: HPLOT X,Y 
220 .GoTO 100 
225 ”END 
230 IF RRS = 1 THEN AS%(JL) 
) = Y:ARS = 2: RETURN 
240 IF ARS = 2 THEN CS%(IL) = X:D%(JI1 
) = Y:RARS = 1: GOSUB 400:J1L = J1 
+ 1: RETURN 


X:BS%(J1L 


300 IEFEX《< 0 TIIEN X = 6 
310 IF X > 255 THEN X = 255 
320 IFRY (0 TIEN Y -: 0 


330 IFRY > 191 TIIBN ! -: 191 


]40 REIURN 
400 “HHCOLOR= Es(J1l) 
440 HPLOT AS(JLI),，BS%(JI) TO CS%(J1L)，Ds% 


(JI1L) 、 、 

480 RETURN 

600 IF J1《“:1 ?HEN CALL 65338:; GOTO 
620 -一 


605 JI1L1 = J1 ~ 1 
610 ”RHCOLOR= 0: HPLOoT Ag%(JI1LI)，B%(JIL) TO 
c%(J1)vDS(Jl1) 

620 RETURN 

700 FOR I = 0:79.JL > 1 

了 10 NEOLOR= 卫 %(I) 

?20 “HPLOT AtT)，  B% (IT) TO GS(I)v，DS%(TI) 

730 NEXT 

740 RETURN 

750 HOME : HGR- 

755  VTAB 24: INPUT "Color=n;HC . 

758 IF HC 0 OR IIC >.7 TIIEN HOME : 
” Go9TO 75 

760 “ POKE 16302 ,0 RETURN 


史 程序 说 明 

本 程 岸 绘图 的 起 点 坐标 为 《100,80), 在 第 一 页 画图 。 共 
发 册 了 A%(I) B%CDC% (CID% (CD E% (IT) 
5 个 数组 ， 分 别 存放 直线 的 超 点 坐标 ， 终 点 坐标 以 及 访 亦 直 线 
的 颜色 。 开 始 名 会 图 时 ,颜色 号 码 设 定 为 3 。 

4 一 22 5 为 主 程序 - 

A%(ID)、B%(I) 数组 存放 查 线 的 起 点 坐标 ，C % (IJ)、 
41) 数组 存放 直线 的 终点 坐标 值 ， 正 %(D 数组 存 贮 关 
负 ， 

10044210 两 句 可 控制 屏幕 土 一 个 动态 光 点 ， 让 用 户 观察 
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坐标 的 位 置 。 按 “A?” 键 将 存 贮 在 数组 的 数据 作为 图 形 数据 
重新 显示 一 遍 。 按 “ I ” 键 使 光标 上 移 ， 按 .“ 丁 % 键 使 光标 
左 移 , 按 “ 工 ” 键 使 光标 右 移 ,: 按 “M?” 键 使 光标 平移 ， 按 
“N ? 键 为 删除 当前 画 的 直线 ， 按 “C 7 键 为 改变 要 绘 直 线 的 
颜色 ， 按 “C TR 开 -= 下?” 键 为 改 光 标 移 支 的 距离 ,: 当 按 下 
此 键 后 ， 再 接 “ 了 信之 ] ”及 “ 届 方 南 针尖 
只 移动 一 个 坐标 单位 5 按 “ 下 " 键 为 移动 单位 增加 , 每 按 一 
网 增加 一 不 华 标 单位 ， 接 加 村 负 示 选 中 该 点 的 从 标 值 ， 
将 其 送 入 数组 中 ， 同 时 在 屏幕 上 显示 这 条 直线 。 

300 一 340 子 程序 为 控制 光标 不 超出 屏幕 以 外 而 设置 。 

600 一 620 为 删除 子 程序 ， 按 “N” 键 进入 该 子 程序 ， 删 
除数 组 中 的 数据 ， 同 时 将 屏幕 上 的 线条 捷 夫 .: 

700 一 740 拖 程序 为 显示 图 形 模块 

750 一 760 为 改变 颜色 子 程序 。 

本 程序 存 贮 在 数组 中 的 数据 为 各 条 直线 的 始点 及 终点 ， 
也 称 这 样 的 点 为 “节点 ”人 与 屏幕 的 交互 作用 ， 实 际 上 是 对 
数组 中 数据 的 操作 。 

第 三 节 图 的 交互 程序 

本 程序 要 求 在 屏幕 上 指出 两 点 ， 贺 心 和 半径 ， 能 绘制 任 
意 不 超过 屏幕 边界 的 玫 。 有 关 圆周 上 坐标 点 的 数据 ， 只 要 计 
算出 0 到 r /4 范围 中 各 点 的 坐标 ， 根 据 圆 的 对 称 性 来 推算 其 
他 坐标 ， 从 而 大 大 加 快 画图 的 速度 。 

-全 源 程 序 〈( 见 G P1263) 

5 REM GP1203 

10 C1 = 10:X = 100:Y = 80:RARS = 1:HC = 
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3 
15 HSR2 
20 PI = 3.14159 
30 了 :: PI / 180 
40 ” HCOLOR= 3: HPLOT X,Y 
00 GET AS: RHCOLOR= 0: HPLOT X,Y 


10 IFAS = "TI THENY = Y - Cl 

1Z0 IF AS = JI" THEN X = X - Cl 

10 IF AS = "L THEN X = X + Cl 

14.90 TPF AS = "MI THEN Y = Y + Cl 

160\ IF AS = FI THEN'CL = CL + 1 

162 GOSUB 200 

170 IF AS = "mn THEN Cl1 = 工 

175 IIR AS = CHRS (13) TEN CALL 65 


338: GOSUB 230 
180 “8HCOLOR= 3: HPLOT X， 荆 
185 Go?0 100 
19Q END 


200 IF X 0 THEN X = 0 

205  TEF.X > 255 THEN X = 255 
207 IFY《Q ITIHENY = 0 ， 
208 IF Y ”191 THEN Y = 191 


210 RETURN 

230 IFR RARS = 1 THEN AS%(J1I) - X:BS%(J1 
) = 了: ARS = 2:: RETURN 

231 IF-ARS = 2 THRN _ CS(IlLJ-= X:D%(J1 
) = Y3RRS = 1: GQ80UB 233:J1 = J1L 
+ 1: RETURN  . : 

233 AL = AM%(JL):BL = B%(J1L):A2 = CS%(J 
1):B2 = Dq%(JI1) | 

234 R = SQR ((AL - AR2) * (AL - A2) + 
(B1L - B2) 才 -(B1 - B2)) 


235 IF R 二 0“THEN JL = JL 1: RETURN 


240-A = 1 / RiT45 = 45 和 了 
245 FOR T = 0 TO T45 STBP DA 
250 DX = R * COS (了 T) 


天 党 


255 DY = R *7 SIN (了 ) 
260 “ HCOLOR=::3: 60SUB 300 


267 NEXT T 
270 REBTUR 攻 / 

300，。 HPLO7T X_ +- DX,Y-+ DY 

305.: PEO ~- 了 TDX， Y + 四 Y 

310 “上 0 X 二 DX， Y -~ DY 

315 “HbLorz X - Dx,Y -~ DY / 
320 HB1OT-X + BPYvY + DX / 
325。 到 LOT X > DY,Y + DX 

330。， HPLOY X + DY,Y - DX 

340 ”HPLOT X < DY,Y - DX 


350 .- 筷 EBTURN 

@ 程序 说 明 

5 一 190 为 主 程序 ，40 与 区 0 两 名 实现 一 个 趣 动 的 光 点 。 
按 回 车 键 玫 示 接 收 屏 草 上 的 坐标 点 。 和 。 

233 一 270 子 程序 的 作用 ， 计 算 米 径 、 0 一 到 /4 范 换 内 
导 的 从 标 点 。234 名 由 接收 的 两 个 坐标 点 计算 辆 的 半径 .235 句 
为 当 半 径 为 零 ， 实 际 上 是 在 同一 伺 冤 上 输入 两 个 点 时 ， 退 出 
并 取消 这 两 点 的 坐标 。 

300 一 350 子 程序 的 作 厨 ， 根 据 计 算 的 4 一 /4 范 国 的 从 
标点 ， 宙 部 的 对 芍 性 推算 圆周 上 其 他 7 全 坐标 总， 车 已 计算 
出 〈X，Y), 贴 与 它 对 称 的 圆 局 上 和 旁 外 7 个 坐标 点 分 别 是 
(X,， -YY)，( 一 Xi Y) (一 X， 一 Y)。(Y，X)，(Y， 
-X)、(-Y，X) 和 (-Y， 一 双 )e 

第 四 节 。 贺 弧 疮 变 豆 实现 程序 

中 程序 要 求 . 

在 屏幕 上 任意 输入 三 点 ;圆心 、 圆 弧 的 起 始点 以 及 方向 ， 
可 绘 出 不 超过 边界 的 任 一 圆 弧 。 有 显示 功能 。 
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眼科 赃 ( 见 GP1204) 
RM CP]125 
(0 =- 10:IX= 100:7Y = 80:ARS = 人:HC = 
] 
1 HOCR  : PORKE 工 6302,0 
140 HCOLOR= 3: HPLOT X,Y 
100 CEF1 Ak: HCOLOR= 0: HPLOT X,Y 


1 [人 Ag = "ATHEN GO3UD 700 
II0 IF A = "TI THER Y =Y- Cl 
120 IF AS = "J"”THEN X = X -CC 
1J0 IF AS = "L" THEN X = X + C1 
140 IFR AS = "Mn THEBN Y = 六 + Cl 
100 IF AS = "R" THEN CI = Cl + 1 
162 GOSUB 300 
170 IF AS = "",THBN Cl = 1 
100 IF AS = CHRS (1: 13) THEN CALL 65 
338: GCSL B-230 _ 
210 HRCoboR=s 3: HPLOT X,Y 
LL0 GOTO 100 


230 IF _ARS = :2 HEN Ag%(JL) = X2:B%(J1 
) = &:RARS = 3: 有 REPURN is 
:JJ1 ITF RARS .= 工 - THEN CS 4 -= 贡 %(J1 
) = Y:ARS =“2: :RETURN : 
2J2 IF RARS = 3 THEN ZEs(3a1) = XIER%(J1L 
) = 了 :ARS = 1:2603SUB- 233: 可 1 = JJL 
+ 1: RETURN ， ， 
"233 AL = RS%(JI1L)XB1 = Bg(3LI) :2 = G%( 
1) : B2 = 3 -和 (9 于) 了 3- 
R% (JIlL) - 
224R= SQR (:(RA - A2 1 类 CA1 ~- AZ) + 
(B1 - B2) *-(B1 -: 8B2)s3Rti = R:R2 
= 只 
4]5 AI = 有 A2. -- AL:BT = B2 - BRK 一 人 3 
- AL:RK 去 呈 了 - BLI 
JJ360P = 3.14159 
"JIRAI=0RAND BIO0O THEN F0 = 日 


/ 2: GO3?0:242 

238 IF AFE= 0 AND BI >0 THEN F0O = 晶 
(3 了 34L 2): GOTO 242 

239 TIF BIT = 0 AND AI > 0 THREN F0 = 0 
: GOTO 242 四 

240 IF BI = 0 AND AI 0 THEN F0 = 
: G9TO .242 * 

241 F0 = .ATN， ( RARBS. ( 瑟 T / AI) ) 

242  IR MK = 0.AND-BK < 0 THEN FK 
/ 2: GOTO0 247  ， 


| 
0: 


243 IE AKS 0 AND BK > 0 THEN FK = B 
夫 《3 / 2)::Gom0. 247 
244 TIFE BK = 0. AND_RK > 0 _ THEN FK = 0 
SoT0 247 - 
245 IF DBKX.=-. 0 AND 亚 必 0 THRN.EFKX = P 
; ComTO: 247- : - 
2746 FK = RATN  ( XABS- BK 2 RAK) ) 
247 IF BI《 0 AND .NIT >-0.FHEN FT = 艰 


248 IF BI ”0 AND AI (0THEN FE0O = 1 
80 * (PP / 180) + F0 

249 IF BI >0 AND AI >0 THEN F0O0 = 3 

60* (PP7A180) - F0 

250 IF BI 0 RNDB AI 《8 HEN FRO = 注 

80.* (BR 7 18 人 一 -PPO， 

251 IF BK >-9-AND-AK >:0.THEN FK = 3 
.60 yx-(P /301) 二 ERK 

252 IF BK -全 ANB ARAK 《. 0.THEN FK = .1 
89 * 《BA 180) + BFK 

253 IF BK 《0RAND AK > 0 THEN FK = B 


254 IF BR 2702ANBD -AIK- < 0 THEN FK = 了 


XK + 180 wx (B X 180) 
255 TU < (FEFQ. 180) / 3.14159:I1 = (下 


机 - 
756 IF IO0 > IlL THEN I0 = TI0 - 360 一 


257 IF INT (R10) =:0 THEN JL = JL - 
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1: CALL 65338 : RETURN 
258 CC - INT (50 / RLI + 工 ) 
259 R = 3.14159 / 180. 

260 AY%(J1L) = AL:B%(JLI) = Bl:Ccs(J1L) = 
Rl1:D%(JIJL) = R2:EBS%(JIL) = I0:FS%(J1L 
》 = 了 1 

262 FOR I = IO0 TO I1 :3STEP C 


263 X- RARI +fRL* Cos (FR * 工 ) 

264Y= BI - RZw SIN (FE * I) 

265 Ag = INT (X + .5):B = INT (Y | 
.) 

266 ICOPOR= 3: HPLOT AS%,，Bs 

267 NBXT 1 四 

268 RETURN 

300 IF X 0 THEN X = 0 

305，、IR X > 255.7HEN X = 255 

310 IFIY“ 0 THEN Y = 0 

315 IF Y: >- 191 THEN Y = 191 


320 ”RETURN 

@@ 程序 说 明 

程序 共 设置 了 A% (I)、B%(DJ、C% GI)、D%(D、 
E%(ID 和 下 站 (I) 数组 ， 分 分 别 存 贮 圆心 坐标 ， 半 径 及 圆 弧 
的 起 始 弧 诬 、 终 止 弧度 。 角度 的 定义 逆 时 针 为 正 。 

5 一 255 为 译 程序 。 100 与 210 两 句 能 实现 一 个 拖 动 的 光 
点 。 

230 一 232 子 程序 的 作用 ， 顺 序 接收 屏幕 上 坐标 点 ， 第 一 
次 输入 为 圆心 坐标 ， 第 二 次 输入 为 弧 段 起 始 位 置 坐标 值 ， 第 
三 次 输入 为 弧 段 的 终止 方向 ， 并 分 别 存 入 有 关 数 组 里 。 

233 一 268 子 程序 的 作用 ,根据 接收 的 三 点 ， 计 算出 圆 弧 
的 半径 ， 根 据 和 象限 的 判定 及 边界 处 理 来 确定 起 始 弧度 值 和 终 
上 弧度 值 。 并 按 逆 时 针 方 向 显示 该 圆 弧 。 起 始 弧 度 与 终止 弧 
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度 天 小 的 确定 见 图 1.5, 坐标 原点 设 在 圆心 。 主 要 根据 X、Y 
的 正 负 ， 来 确定 Q 箱 的 大 小 。 即 


图 1.5 Q 值 大 小 的 确定 
当 叉 为 正 ，Y 为 负 , 则 Q=aretg { -1) 。 


当 X 为 负 ， 立 为 负 ， 则 Q = 90。+arctg 


JY| 
| 
当 X 为 负 ， Y 为 正 ， 则 @ =180” +arctg[ 仿 [ o 


当 X 为 正 ， Y 为 商 ， 则 Q = 270? +arctgl 上 | ) 。 


第 一 节 ， 图 形 的 二 维 变换 交互 程序 


本 闻 主 要 介绍 计算 机 图 形 的 基本 的 二 维 变换 ， 平 移 、 比 
例 变 换 太 族 转 。 并 续 出 相应 的 交互 程序 。 


池 杰 从 习 帮 上 的 二 处 移动 到 另 一 处 ， 称 为 图 形 的 “ 平 


30. 


9 REM GP1205 

10 HOME :; HGR2 

20X:。> 上 100:Y = 80:A = 25:B = 10:ME 
= 10 

30 C = 3: GOSUB 300. 

100 GET A?， 

102 CC =.0: G03UD 300 


110 IFRA = "TI" THIEN Y = YY - MBE 
120 IF AS = "IJ THEBN X = XXX - ME 
2130 IF AS = "M?9 THEN Y = Y + ME 
140 IF AM erLn THERN:X >= X ME 
150 IF AS = "F" HEN NE = + 工 . 
160 IFR AS = "3S"” THEN ME 1 

165 TIRE AS = Br THBEN 交 BXm : END 


170 C = 3:. GOSUB 300. 

180 ”GoTO 100 

200 “ 宗 NP 

300 ”8HCOLOR= C 

305 1PLOT X,Y TO X + RiY ro X + 和 
,YY + B 

310 IIPLOT X,Y+ BTOX+ ARY+B 

320 HPLOT X, TO x,Y+RA/2+B 

330 “RETURN 


移 ”, 假 设 图 上 某 点 的 老 坐 标 为 〈X1，Y 1), 平 移 后 坐标 为 
(X,Y ), 平 移 的 水 平 距离 为 X 0 ， 垂 直上 距离 为 Y 0 ， 则 ; 
fxX = 王 X0O 十 X1 
LY=Yo+Yl 
当 X 0 为 正 表 示 向 右 移动 ，X 0 为 负 则 向 左 移动 , Y (为 
昼 则 表示 向 下 移动 ，Y 0 为 负 则 表示 向 上 移动 。 
对 屏 音 上 显示 的 图 形 ， 要 移动 该 幅 图 形 ， 只 要 做 到 下 列 
4 以 1 
3] 


“。 计算 被 平移 图 形 中 节点 的 新 坐标 。 

*。 撩 去 老 图 形 。 

。 按 新 坐标 位 置 显示 这 幅 图 形 。 

下 面 的 程序 可 实现 一 个 小 旗 的 移动 ， 见 程序 G P 1205。 

GD 源 程 序 

@) 程序 说 明 

5 一 200 为 主 程序 , 102 与 170 两 句 可 实现 小 旗 的 拖 动 。 

300 一 330 子 程序 为 画 小 旗 的 模块 : 

对 圆 及 圆 弧 我 们 只 要 变换 相应 的 节点 一 一 圆心 相应 程 
序 可 仿照 上 述 的 程序 来 实现 。 不 过 圆 的 拖 动 用 节点 法 在 中 华 
学 习 机 上 ， 由 于 速度 较 慢 ， 实 现 这 一 要 求 速度 不 允许 

夭 贺 形 是 各 到 边 
界 以 外 ， 这 方面 要 增加 丛 验 子 程序， 以 免 画 到 翼 基 以 外 而 半 
0 

2. 图 形 的 比例 变换 

所 谓 比 例 变换 ， 是 将 图 形 沿 X 轴 方 问 扩大 《或 缩小 )Sx 
音 ， 沿 立轴 方向 扩大 〈 或 缩小 ) Sy 倍 ， 见 图 1.6。 


= | 户 


TY Y 
HS=1,VS=1 HS=2,， VS=1 


图 1.6 比例 交换 的 定义 
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必 SxeSsy 时 ，. 被 变换 图 形 只 改变 大 小 而 其 形状 不 改变 。 
进行 比较 变换 竺 ， 如 相对 于 屏幕 上 的 某 点 (X0 ，Y0 ) 
划 行 变换 ， 其 变换 公式 如 干 : 
fxX: = =Xo 十 (X 一 X ) 米 S ， 
(人 Y.=Yo+(Y 一 加 ) 米 S， 
下 面 的 程序 可 实现 上 述 小 旗 的 缩放 ， 见 GP 1206。 
四 源 程序 
5 REM  GP1206 
10 “RHOME 
20 X = 100:Y = 80:A =-25:B8 = 10:ME 
= 10 . 
50  VTRARB 234: INPUT Enter 3cale-Xn 
2 SX 
60 INPUT “Enter SCale-Y";SY  - 
75A-RAA Sx:B-=- B xx SY 
80 HGR2 :C = .3: .GOSUH 300 
100 .GET 和 AS 
102 C = 0: GOSUB 300、 


110 IF AS -In THEN Y = 了 Y ME 
120: JE AS = "JITHEN X = X - ME 
130 IF AS = "Mr THEN Y = 了 + ME 
140 IF RS = "L”THEN X = X + ME 
150 JIR AS = "Fn THEN ME = MB + 1 
160 IE AS = "SFHEN MBE = 1 

165 IF AS = "En THEN TEXT : END 


170 C = 3: G98UB 300 

a80 GoT0. 100 

200 “” 守 ND 

306 NCOLOR- C 

305 “HPEOP X,Y TO X + RARY TO X + 人 入 
zx 二 卫 、 -~ 

310 “HPLOoT X,Y+ BTOX 1 RAYT+ B 

,320 ”HBIOT-XY 0O XY + AV2 + B 

330 “RETURN | 
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@) 程序 说 明 … 人 
10 一 200 名 为 主 程序 ， 50_60 铝 让 用 户 丽 订 输 入 沿 基 铀 
和 滑 Y 轴 的 编 放 比例 Sx 和 Xv ， 和 名 为 四 次 
0 8) 的 缩放 。 
图 形 的 旋转 
所 谓 .“ 旗 转变 换 ” 是 将 屏幕 上 时 示 的 图 形 筑 某 -- 表 旋 转 
一 定 的 角度 ， 见 图 1.7。 


.图 1.7 点 的 旋转 变换 
式 如 下 ， 


又 一 Xe 二 《 工 守 - 攻 放 5os (于 

(= 《站 尖 和 | 本 (个 ) 
Yr =YI+(Y- 一 人 1) 米 cos(T ) 
一 (X 一 X0) 洲 SIN(T ) 


下 面 的 程序 可 对 上 述 的 小 旗 进 行 旋转 变换 , 见 G P 1207。 


@ 源 程 序 

5 REM  GP1207 

10 HOMB， - 

“0 区 - = 400:Y = 80:A= 25:B = 10:ME = 
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30 
55T = 3.14159 ] 13 作 灶 ST 
60 


10 


VTRAB 24: INPUT "nter ST:"3ST 


RL = 有 xx CoS (T) 1 


B1 =0x* Co (LT) 


0 * SIR ( 工 ): 
一 An” SIR (T 


65 AR2 =AAx :COS 【Ti + 号 上 类 SIRN (TI): 
B2=-Byxv Co3s(d(T) -AAAx SIRN (T 
)》 

70 A3 =-D mw CoSs (T] +B* SIN (T): 
B3=Bx* Cos (TI -0x*x SIN (LT 
】 时 

30 RM =0O0Yw COo3 (T) 1 (BT AL) 
SIN (T):B4 = (Bt+fA/ 2)* COoS 
(了 ) -~- 0 SIN (T) 

90 、RHGR2 3:C = 3: GOSUB 300 

JIOO GET AS - 

102 C = 0: 60SUB 300 

3110 IFR AS = "Iw THEN Y.= Y - ME 

了 20 IPR AS = "J"” THEN X = X - ME 

二 3 站 JE AS = "”M” THEN Y = Y -+ ME 

14G6 IF AS = "En THEN X = X 1 ME 

150 IF AS = "Fn THEN ME = ME + 1 

160 IFR AS = "S" THEN-MB = 1L 

1 6 AR AS = "E? THEN TEXT : END 

170C = 3: GO3SUB 300 

1I80 OoTOG 上 00 

200 END 

300 ”了 芒 COLOR=. C 

3052 “HPLEOT X,Y TO X + AL,Y + 8BL 

J08 ”HPLOT X+ Al,YT 二 Bl TOX + A2，Y 
寺 B2 

310 HBpLOT X + ARA2,Y 1 B2 TO X + A3,Y 
十 及 3. 、 

320 HPLOT X,Y TO X + Ah,Y + B4 

330 


REIURN 


@ 程序 说 明 
5 一 200 为 主 程序 ,，. 上 0 和 可 让 用 户 输入 着 时 针 旋转 的 角 


莹 ,60 一 本 为 计算 个 旗 各 端点 旋转 后 相对 于 左 端点 “00， 
80) 的 坐标 。 ， 


300 一 330 子 程序 为 画册 旋转 后 小 旗 的 模 计 

4. 交互 绘图 的 变换 ， 

以 上 介绍 了 几 种 常用 的 变换 ， 并 以 小 旗 图 块 为 例 给 出 订 
儿 个 实例 程序 。 只 要 对 小 旗 图 块 子 程序 稍 加 变动 ， 或 者 用 其 
它 图 块 奉 代 小 旗 图 块 ， 能 实现 不 同 图 块 的 二 维 变换 。 但 在 变 
互 程序 中 ， 如 何 对 已 经 作 好 的 图 形 施加 上 述 的 变换 呢 ? 我 们 
知道 ， 交 互 程序 画图 存 贮 的 是 图 形 的 有 关节 点 一 一 直线 的 起 
始点 终止 点 。 圆 的 圆心 、 半 径 ， 圆 跌 的 圆心 、 半 径 、 起 始 
角 和 终止 角 。 根据 上 述 原理 ， 只 要 对 这 些 节点 施加 变换 就 能 
达到 要 求 ， 下 面 将 给 出 交互 画 直 线 ， 并 给 出 上 述 几 种 变换 的 
程序 ， 见 G P 1208。 

由 源 程 太 

5 REM  GP1208 

6 DIM As(100),B%(100),Ccs(100),Ds%(1 


00) ,ES(100 ) 
10 HGR :JL = 1:ME -= 10:ARS = 1 


20  VTAB 24: INPBUT "Command :"; AS 
25 JIJEF AM = “MOVE”THEBN 603UB 100 
30 IF AS = "2ZO00M”THEBN GDSUB 800 
40 IF AS :- "ROT"” THEN GOSUB 9300 
50 IFR:AS = "LINBEB"” THEN GOSUB 200. 
= "END”THEN TEXT : END 
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100 
105 
110 
120 
125 
130 
140 
145 
150 
160 


170 
180 
200 
210 
220 
230 
240 
250 
255 


260 


270 
275 
280 
300 
310 
320 
400 


420 
600 


GET AS$S: HCOLOR= 0: HPLOT X,Y 
IF AS = "In THEN Y .= Y - ME 
IF AS = "JIm THEN X =,X - ME 
IF AS = "Mn THEN Y = Y + ME 
TITP AS =_"Lw THEN X = X + ME 
IF AS = "Fn THEN MB = ME + 1】 
IF AS = "Sn THEN ME = 1 

IF AS = "Q" THEN RETURN 


IF X = 0.、TITHEN REIURN 
IR AS = CHRS (13) THEN COSUB 


HCOLOR= 3:; IPLOT X,Y 


GOTO 100 

GET AS: HCOLOR= 0: JIPLOT X,Y 
IF AS = "【I”THEN Y FF Y - ME 
IER AS = "J"”THEN X = 'X - ME 
IF AS = "M” THEN Y = Y + ME 
IER AS = "L” THEN X = X + ME 
IF AS = "R”THEN ME = ME + 工 
IF AS = "Q” THEN RETURN 

IF AS = "3S”THEN ME = 1 

IFRF AS = CHRS (13) THEN CALL 


65338: GOSUB 300 

HCOLOR= 3: HPLOT X,XY 

GomO 200 

IF ARS = 1 THEN AS(JL) = X:BS%( 
JILI) = Y:ARS = 2: RETURN 

IF ARS = 2 THEN CS%S(J1L) = X:DS%( 


JL) = Y:ARS = 1: GOSUB 400:J1 .= 


J1 + 1: RETURN 

RETURN 

HCOLOR=. 3: HPLOT AS(JI1L),BS(J1) 
TO CS(JIL) ,DSS(IIL) 

RETURN 


IF JIJ《 1 THEN CALL 65334: GOTO 


630 


610 J1 = J1 -~- 1 
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620 


630 
700 


720 


730 
740 


750. 


755 


760- 


762> 
770 


775 


777 


780 
785 
800 


810 
81> 


820 
825 


830 
832> 


“840 


845 
847 
850 


860 


300 


TIR ARS = 工 THEN XQO， 


CI) = CS%(I) + MX:DS%(I) : 


AS%(I) = X0 + (RS(I) - X0) 


-HCOLOR= 0: HPLOT AS%(JI1) ,8BS(JI1L) 


TO CS%(J1L)，D%(J1l) 


RETURN 
:FOR II=> 1 IOOJlLI - 工 


HPBLOT A%(I)，BS%(I) TO CS(I) ,DSS 


I) 


NEXT 
REIURN- 


中 
) 
心 

和 
< 


ARS = 2: RETURN 

IR ARS = 2 THEN MX = X .- X0O:MY 
= YL -YY0:ARS = 工 

HCOLOR- 0: GDSUB 700 


FORI = 1 ?39oJ1- 1 
AS(I) = RS%tT) + MX:B%(I) 


BS%(I 


) + MY 
DS% ( 工 


关 


NBXT 

HCOLOR>= 3: GOSUB 700 

RETURN 

VTAB 24: INPUT "Entez SCale-X: 
"2SX 

INPUT "Enter SCale-y:")SY 


INPUT "Enter the base .of point 


Xvwy:”2X0,Y0 
HCOLOR= :0: C93SUB 700 
FOR ITI = 1 7T9 J1 -一 1 


究 
B%(I) = YO0 + (BS(I) - Y0) * SY 
CS(I) = X0O + (CS(I) - X0) * SX 
D%(I) = Y0 + (Dg%(I) - Y0) w SY 
NEXT II 
HCOLOR= 3: GOSUB 700 、 
RETURN 


VIAB 24: INPUT "Entez thze:")T 


910 INPUT ”Enter base of x,yY:")X0， 
Y0 
915 T 3 。 14159 / 180 *T 
920 HCOLOR= 0: GOGSU8 700 
930 FOR TI = 1 TIL -1 
935- X1 = xo + (AS(I) - X0O) *- COS (人 
T) + (B%(I) - Y0O) * ,SIN (T) 
940 Y1 = Y9 + (Bq%(I) ~- Y0O) w COS (人 
T) - (AS%(I) - XO) * SIN (T) 
945 X2 = X0 4 (CS%(I). =- X0) * COS (人 
T) +-(D%(I) - Yo) ww SIN (T) 
950 Y2 = Y0:+ (D8&(T) - Y0) * cos ( 
T) ~ (CS(I) - XO) *，SIN (T) 
955 AS%S(I) = X1:B%(I) = Y1:CS%(I) = 人 
2:DS%(I) = 了 2 
960 NEXmT II 
365 RHCOLOR= 3: GO3UB 700 
970 ”RETURNK 
@) 程序 说 明 
吾 一 90 为 主 程序 ， 按 MO VE 回 车 进入 移 形 模块 ， 按 
299OM 回 车 进入 缩放 模块 ， 按 R O 下 回 车 进入 旋转 模块 ， 
按 L LN 眉 回 车 进入 交互 乡 直 线 模块 ， 按 EN D 回 车 结束 程 
序 运 行 。 
200 一 280 子 程序 为 绘 直线 模块 ,其 含义 见 G P 1202 程 序 
的 说 明 。 


-9100 一 180 了 于 程序 为 移 形 模块 ， 其 含义 类 似 于 G P 1205 程 
序 说 明 。 

800 一 860 子 程序 为 缩放 模块 ， 进 入 该 模块 后 ， 要 求 用 户 
答 入 沿 X 轴 与 了 办 的 缩放 比例 S “与 Sy ， 还 要 输入 被 缩放 图 
形 的 基准 点 坐标 .(Xo，Y o)，825 一 847 为 将 图 形 各 节点 相 
对 于 基准 点 〈(Xo，Ye) 进行 的 缩放 :，850 句 将 缩放 后 的 图 
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形 显 示 在 屏幕 上 。 

900 一 970 子 程序 为 旋转 模块 ， 进 入 该 模块 后 ， 要 求 用 户 、 
顺序 输入 旋转 角度 以 及 被 旋转 图 形 的 基准 点 坐标 〈X o, Y o)， 
930 一 955 为 将 图 形 各 节点 相对 于 基准 点 (Xe，Y 。%) 进行 的 
旋转 。 


第 六 节 图 形 存 贮 


以 上 我 们 讨论 了 在 中 华 学 习 机 上 如 何 实现 交互 绘图 并 给 
出 了 相应 的 程序 。 下 面谈 谈 如 何 将 高 解析 度 画面 的 图 形 存 贮 
在 软盘 上 “《〈 即 外 存 贮 器 )。 

一 、 印 象 存 贮 

中 华 学 习 机 有 高 解析 度 图 形 两 页 ， 第 一 页 的 图 形 缓冲 
区 十 六 进 制 为 $2000 一 $ 3 FFF ， 第 二 -页 为 囊 4000 一 
$5FFEF 。 屏 幕 上 显示 的 图 形 信息 与 相应 的 缓冲 区 内 存 具 
有 对 应 关系 ， 我 们 只 要 将 其 缓冲 区 信息 存 贮 〈 印 象 存 贮 ) 下 
来 ， 就 能 保存 这 幅 图 形 ， 假 设 名 字 为 B$ =“N A ME ” 则 : 

在 第 一 页 ,, 可 用 命令 : 

] BSAVE B$A$2000, .上 $2000 

在 第 二 页 ， 可 用 命令 ; 

] BSAVE- B 叫 ，A $4000，LL 甩 2000 

上 述 两 条 命令 ， 可 将 相应 的 图 形 存 贮 在 软盘 上 。 要 想 显 
示 这 幅 图 形 ， 在 进入 图 形状 态 后 ， 用 下 列 命令 即 可 从 软盘 上 
将 图 形 调 出 并 显示 。 其 命令 如 下 ， 

] HGR2 

] BLOAD B$，A 中 4000 

用 BSAVE 与 BLOAD 命令 ，D O S3.3 操作 系统 必须 
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事先 装 入 内 存 ， 它 们 也 能 带 行 号 播 在 程序 之 中 ,例如 
5 HGR 2 
10 PRINT CHR $ (4) “BLOAD 懈 
B$ “ A$4000? 


二 、 用 数据 文件 存 贮 图 形 

用 印象 存 贮 一 幅 图 形 十 分 简单 ， 但 图 形 数 据 占用 内 存 较 
大 ， 且 调 盘 的 速度 慢 ， 建 立 好 的 图 形 ， 下 次 使 用 时 不 便于 插 
入 与 增加 ， 一 般 情 况 下 ， 我 们 不 使 用 这 种 方法 来 存 贮 图 形 ， 
下 面 介绍 另 一 种 存 贮 图 形 数据 的 方法 。 

以 上 谈 到 用 “节点 法 ”实现 的 交 玉 绘图 程序 ， 其 图 形 存 
贮 的 是 有 关节 点 ， 并 且 将 它们 保存 在 数组 里 ， 但 一 旦 程序 售 
止 运行 ， 关 机 以 后 将 会 失掉 这 些 数据 ， 如 果 我 们 能 将 这 些 数 
据 保存 在 外 存 贮 器 中 ， 那 么 也 就 保存 了 这 幅 图 形 。 保 存 数 据 
常用 的 方法 是 用 数据 文件 。 下 面 我 们 就 介绍 用 数据 文件 来 保 
存 图 形 数据 的 方法 。 

以 直线 交互 实现 程序 为 例 ， 建 立 一 个 存 贮 图 形 有 关节 点 
的 随 太 文件 和 一 一 个 读 这 幅 图 形 数 据 的 随机 文件 。 

.建立 数据 文件 保存 直线 图 形 数据 的 程序 
和 〈 见 GP1209 ) 


史 REM ” GP1209 
| 才 00 ”TEXT : HOME : VTRAB 24: INBUT " 
Enter NAME----";BS$ 
810 -REM SET TEXT 0F DRAWING 
/ 820 DS$ = CHRS (4) 
” 830 PRINT DS$S;"OPEN ; BSim，L20n 
840 ” PRINT:-DS 
845 PRINT DSinWRITE" ; BS)n,ROn 
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8948 PRINT J1 
.849 -FOR I = 1 70 J1 
850 PRINT DS imWRITEw ; BS;n,Rn;I 
870 PRINT AS%(CI - 1)5znvnyBS(TIT - 1)) 
ni CT - 1)ynmvn;DS(IT - 1)yn)， 

(IT - 了) 

880 NEXT 1I 

890 PRINT D$;nCLOSE" 

300 HGR : boOKEB，- 16302, 0: RETURN 


加 程序 说 明 . 

文件 名 让 用 户 输 入 ,比如 为 DR， 每 个 记录 的 长 度 为 20， 
分 别 存 贮 每 条 直线 的 颜色 ， 起 点 坐标 与 终点 坐标 ， 零 号 记录 
存 贮 屏 幕 上 显示 的 直线 数目 。 

830 语 句 为 打开 名 为 DR 的 随机 文件 ， 其 记录 长 度 为 20。 

845 一 848 行 是 将 J1 (直线 数目 ) 写 到 零 号 记录 上 。 

849 一 980 行 是 将 A%(I).B%(I)、C%()、D%(IT)、 
己 %(T) 数 据 存 贮 在 i 〈1,2,…，Ji) 记录 上 , 每 个 记录 存 贮 
一 条 直线 的 5 个 节点 数据 ， 起 点 坐标 、 终 点 坐标 以 及 颜 
色 。 

890 句 为 关闭 这 个 随机 文件 。 

该 程序 使 用 必须 加 在 直线 的 交互 程序 GP 1202 中 .，| 在 主 
程序 中 加 一 条 语句 以 表示 进入 这 个 模块 ， 该 语句 为 : 

165 IF Af$=.“S”THEN GOS UB 1800 

2.， 读 上 述 随机 文件 的 程序 

GD 源 程序 ( 见 GP 1210) 

3 REM CDP1l210 


6 DIM A%(500),B%(500)，cg%(500) ，D%( 
500 ) ,E%(500 ) 


\ 
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， 如 辣 呈 … 驴 DB 人 
10: REIN ,RE 和 节 TEXT 9F，DRAWINC 
,20 D 和 Y = _CHR 和 04) | 
390 ERIMT -了 和 OBEN92 ES3 ,20"- 二 
0 “BRINT DSS 四 

42 ，PRIRTY- PS REBAEBY 5 


NTDS BRKD"; 下 丰 3RY 5 工 
人 AT )。 明 儿 《Cg(I)，D%(T)， 


30 -NBXe2 _ 


阳 BeNT 攻 季 : meEEDES W 

了 了 OR T = /和 于: 区 ， 
FRI 罚 入 CI BSGI)5v 3 CS 人 TI 
二 ">E%(1I) 


.10~ 天 行为 放生 DR 风 随机 文件 鸭 枉 上， 将 数据 分 别 
了 I 训 ，， < 量 以 及 A%(D .B%(I) `C%(D.D%(CD、E%(I ) 
数 邓 / 与 上 述 建 立 数据 不 同 的 是 60 语 名 为 贸 随 机 文件 语 
和 


O oa 


“9 一 98 行 为 打印 各 条 直线 的 起 点 与 终点 坐标 以 及 颜色 。 
1 100 一 180 和 有 行将 从 数据 文件 读 到 的 数据 作为 图 形 数据 将 图 
“和 乡 显 示 在 屏幕 上 。 
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对 于 圆 、 圆 弧 及 二 维 变换 后 的 数据 ， 我 们 也 可 以 同样 设 
证 类 似 的 数据 文件 格式 及 相应 存 贮 煞 据 及 读 文件 的 程序 。 
但 乱 、 如 果 把 上 述 几 个 于 程序 连 成 一 体 ， 如 何 设计 文件 
的 格式 ， 当 打 亨 该 样 的 文件 ， 如 何 区 分 哪个 记录 是 直线 ， 哪 
个 记录 是 圆 或 圆 弧 的 沙 据 ， 并 接 显 示 程 序 的 要 求 将 这 些 数 据 
读 到 相应 的 数组 里 。 我 们 可 以 这 样 来 考虑 ， 设 置 关 字 键 分 别 
加 到 直线 、 圆 和 图 弧 的 数据 格式 之 首 ， 并 按 最 长 的 格式 来 设 
定 随 机 文件 记录 长 度 。 其 相应 的 数据 格式 如 下 : 
, 对 直线 ， 关 键 字 1 、 起 始点 坐标 。 终 让 点 坐标 、 颜 色 ， 
则 一 条 直线 需要 数组 中 6 个 数据 来 存放 。 
“对 圆 ， 关 键 字 2 ， 圆 心 坐标 、 于 径 、 颜 色 、 则 一 个 次 
需要 数组 中 5 个 数据 来 存放 。. ， 
*。 对 圆 弧 ， 关 键 字 3 ; 圆心 从 标 ， 赵 ' 始 与 终止 弧度 值 、 
颜色 ， 则 一 个 圆 弧 需要 数组 中 6 个 数据 来 i 夺 放 。 
这 样 ， 当 第 一 个 关键 字 为 圆 ， 下 面 的 数据 是 一 个 圆 的 有 
关 数 据 。 同 样 , 当 关键 字 是 直线 ， 则 随后 的 娄 . 据 为 直线 # 
圆 、 圆 弧 及 直线 的 关键 字 可 任意 约定 。 
按照 上 述 要 求 设计 的 程序 便于 图 素 的 交互 外 \ 理 ， 如 果 妥 
删除 某 一 条 直线 ， 则 只 要 将 相应 该 记录 的 关键 字 * 时 为 零 。 上 
述 的 存 贮 约 定 及 格式 ， 可 以 增加 指针 及 索引 。 


N\ 
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第 三 章 ”造型 法 生成 工具 


在 第 二 章 我 们 介绍 了 点 线 法 的 交互 程序 设计 ， 并 给 出 了 
相应 程序 。 众 所 周知 ， 在 中 华 学 习 机 上 ， 用 点 线 法 生成 曲线 
不 管 是 被 动 式 作 图 还 是 交互 作 图 ， 显 示 图 形 速度 慢 ， 当 显 
示 较 多 曲线 时 ， 显 示 速 度 将 更 成 问题 。 而 采用 造型 法 可 避免 
上 述 问题 ， 但 靠 手 工 或 者 靠 辅助 工具 生成 复杂 造型 或 者 二 
数 曲 线 造型 也 是 十 分 困难 的 ， 本 章 介 绍 交互 生成 造型 表 的 一 
系列 交互 工具 ， 可 满足 任意 复杂 造型 或 具有 函数 关系 曲线 的 
造型 生成 。 象 圆 或 者 是 三 角 函 数 曲 线 的 拖 动 实现 将 是 十 分 方 
便 的 。 

第 一 节 ， 手 控 造 型 法 的 交互 生成 程序 

@ 程序 要 求 

把 全 屏幕 当 一 张 纸 ， 用 模拟 光 笔 (箭头 ) 来 在 纸 上 画 图 
对 画 错 的 图 能 即时 删除 。 

从 第 一 个 造型 开始 ， 按 顺序 可 以 建立 255 个 造型 。 

汉 “建立 好 的 造型 表 可 以 存盘 。 

@) 源 程序 ( 见 GP 1301) 

2 REM  Gp?1301 

8 DATA Lv,0,4,0,63,45,45,28,63,12， 


860 
3 FOR [上 [= 0 70 11 


45 


46 


N 


READ A: POKB 768 + IAA: NEXT 


= 24576:KL = 232:K2 = 233 
:SCALE= 1: ROT= 0 
HOMEBE，:，INRU 和 3nter Nurmbers of sh 
ape:"”7M 
POKE N,MINU = NA+2w* (MT+ 4) 
HGR2 : GO3SUB .365: POKE K1,0 
POKE K2,962 ROT= 0: DRRAW J RAT X， 
Y 
GET AS: POKE K2;3: HGCOLOR= 0 
ROoT= RT: DRAW 1 AT .200。10 
IF AS = "98" THEN GOSUB 480 :END 
TF AS = “En THEN MS -~ 0: GOTO 29 
5 。. | 
IF AS = Sn THENH MS% = 3: GOTO 29 
可 | 人 
IF AS =，" 了 了 了" THEN MS = 4: GOTO 243 
= 0 2 、 
IF AS = "D'" THEN M% = 2: GOTO 29 
5 
IF AS = "Bn THEN GO0SUB 405 
IF AS = "TI" THEN M% = 4: GOTO 29 
5 人 
IR RS = "JJ ?HEN M% = 7: GOTO 29 
IF RS = "LI" THEN MS -大 3 GOTO ?3 
? 网 
TPR AS = YX THEN MS% = 6: GOTO 29 
5 
IF AS = "Cn THEN HGR2 : GOSUB 3 
65 
GOoTO 210 
HCOLOR= 3:RT = 16 * MYS: ROT= RT: 
DRRAW 1 AT 200,10 
HCOLOR= 3:RI = 16 * MS%: ROT= RT: 


DRAW 1 AT 200,10 


3025 


IF TS% = 2.ANB (M% >3 OR M% = 0) 
THEN 330 


315 SS S 和 + 8 ”TS * M%: POKE NU,S% 
.BOKB: NU + 1)0- 
320 宇 fg%- 文 2 TIEN .了 和 = 让 工 ; GOTO 
210 
325 NU = NU 千 区 T% = 0:S% = .0: GOTO 2. 
0 - 
330 本 0 THEN POKE NU,128 
335: 划 NU 拉 1:7% = 1:39% = MS: POKE 
NU SS%i bokR NU + 1 ,0 
340 GoTO 210 
350 END 
365 NU = NU + 1: POKE NUv,0O:INU = NU 1+ 
! ， 
370 wa = NU -N:J=J+. 1: POKER N + 1 
二 
75 S% = 0:A: INT (w% ./ 256):B = Wg% 
- 人 女 256 
378 TFTOKE N + 2 * J,B: POKE N + 2 * 了 
+ ,六 
380 PPOKE NU + 1,0 
了 3485 FFOKRE N + 2xJ+ 2,0: POKEB N + 2 
x+30 
390 X = 100:Y = 100: RETURN 
405 IFNU=N+W% RARND PEEK (NU) = 
0.THEN RETURN 
410 PEOKE X2,96 . 
415 T% = T% -1: IR T%《“ 0 THEN NU = 
NU -~- 1:TS = 2 
420 ，ROoT= 0: HCOLOR= 0: DRAW J AT ES%， 
F% 
425 3S% = PEEK (NU): IF SS% = 0 THEN 4 
15 
430R= INT (3% /8 ~ 人 TS) 
440 IF TS = 2 ANDR = 0 THEN TY% = TY% 


- 1: GoOTO 430 


4655 S% = 3 - Rxwx 8 ”Ta:， BOKE NU,S% 

470  HCOLOR= 3: DRRAW J AT Rs ,ES 

475 “RETOURN 

480 ”TEXT :; HOME : VTRAB 22 

482 ”INPUT "Enter NAME of shape-table 

”名 。 “也 9 

485 “PRiNT CHRS (4) ; "BSAVEn; BSA"; 
Ni",LnINU 一 AN + 10 

490 RETURN 


@ 程序 说 明 

5 一 3 5 (为 主 程序 。 按 下 键 为 向 上 移动 一 个 不 画 向 量 。 
按 S 键 为 庙 左 移动 一 个 不 画 向 量 。 按 D 键 向 下 移动 一 一 个 环 画 
向 量 。 按 F 键 向 布 移动 一 一 个 不 面向 量 。 按 B 键 为 删除 ， 按 一 
次 删除 一 个 造型 矢量 ， 连 续 地 按 可 由 后 向 前 连续 地 删除 造型 
矢量 。 按 I 键 向 上 移动 一 个 画 向 量 ， 按 J 键 向 左 移动 一 个 画 向 
量 ， 按 M 键 向 下 移动 一 个 画 向 量 ， 按 K 键 向 右 移动 一 个 画 向 
量 ， 按 Q 键 为 存盘 及 结束 命令 

365 一 390 子 程序 为 设置 每 个 造型 的 表 头 ， 即 每 个 造型 的 
索引 项 ， 以 指出 该 造型 数据 应 放 在 内 存 何 处 。 

405 一 475 子 程序 是 删除 子 程序 ， 当 造型 画 得 不 正确 时 ， 
可 即时 删除 当前 的 造型 矢量 ， 也 能 连续 地 由 后 向 前 删除 造型 
矢量 。 

305 一 335 为 根据 用 户 控制 键 来 将 屏幕 上 移动 矢量 转换 成 
相应 的 3 位 二 进 制 编码 数据 ， 并 将 该 数据 存 入 内 存 。 

造型 表 的 起 始 位 置 为 上 6000， 变 量 NU 始 终 指 向 造型 表 
的 昆 部 。 
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第 二 节 ，. 按 参数 来 生成 造型 表 的 交互 程序 


上 一 节 我 们 谈 到 了 用 点 线 法 来 设计 的 交互 程序 ， 这 种 方 
法 便于 图 形 的 变换 ， 但 设计 好 的 复杂 图 形 ” 要 想 实现 动态 移 
动 这 幅 图 形 ， 还 不 能 满足 要 求 ， 由 造型 组 成 的 复杂 图 形 ， 能 
十 分 方便 地 移动 。 下 面 主要 谈 谈 如 何 来 设计 由 参数 来 交互 生 
成 造型 ， 比 如 折线 、 圆 及 圆 驱 的 造型 ， 这 要 做 两 方面 工作 ， 
第 一 步 为 交互 程序 模块 ， 由 函数 来 构造 相应 的 显示 程序 ， 由 
HPLOTX， Y 语 句 来 实现 。 第 二 步 还 要 将 屏幕 上 一 边 显 
示 的 点 ， 一 边 转换 成 造型 3 位 二 进 制 编码 数据 ， 并 将 其 送 入 
内 存 。 

下 面 就 以 交互 生成 直线 然后 直接 转换 造型 表 的 交互 程序 ， 
之 后 谈 谈 圆 及 圆 红 的 造型 生成 。 

例 程序 要 求 

能 在 屏幕 上 用 光标 指出 两 点 ， 然 后 在 屏幕 上 逐 点 显示 这 
条 直线 ,- -- 边 生成 一 边 转 换 成 造型 表 。 

有 存盘 功能 。 

四 源 程序 ( 见 CP1302 ) 

4 REM  GP1302 

5 DIM A%(100),B%(100),Ccs(100),D%(1 

00)，,E%(100) 
2 6N - 24576: K1 =- 232:K2 = 233: SCALE= 
1: RoT= 0:J =:0 ”” - 

7 HOME .: INPUT "ESnter Number5 cf 5 


hape : ”7M 
9 BOKE NMINU = NA+ 2 (Ms 人 


10 HGR : BOKE - 16302,0: POKE K1， 
0: POKE K2,96 


20. GOSUB 800 


30 C1 


=. 10:X =- 100:Y = 80:RARS = 1:B 
多 = XIERS%S = 《 


40  HCOLOR= 3: HPLOT X,Y 
100 


1I0 


120 


130 
140 
150 、 
155 
160 
162 
165 


170 
190 


0 


220 


225 
230 


240 


250 
300 


-310 


320 


一 -一 尿 


330 一 


400. 


405 
410 


50. 


GET AS: HCOLOR= 0; HPLOT X,Y 


IF AS = "TIT9THEN YY = - Cl 
IF AS = "JI _ THEN X = X - C1. 
IF AS = "L THEN X = X + C1 
IF ARMS = "Mn THEN Y =*Y + Cl 
IF AS = :"N" THEN GOSUB :600 
IF AS - "C" THEN GOSUB 800 


IF AS = Fw THEN CL = CL + 1】 


IF AS = "on THEN TEXT : GOSUB 

900: END 

IF AS e "THEN Cl = 工 

IF AS = CHRS (13) THEN CALL 

65338: GOSUB 230 - 

HCOLOR= 3: HBPILOT X,Y 

GoTo 100 :一 

END  ， 

IF- ARS = 1 THBEBN AS% (TiFF = X3:BS%( 

JLE) = Y:ARS = 2: RETURN:， 

IF ARS = 2 THEN CI = XID&S(《 

J1) = Y:ARS = 上 : -GOsUB 1000 :J1. 

三 JUJl+ 1: KE SR 

RETURN:， -~ :， 

IF X《 0 THEIL X. =: 

TIR X > :255 人 更 村 
立 


TIPFY<GTHEN Y = 
了 《 > 191. THEN Y: = 1291 
有 RETURN 人 


- 妇 OKB-NUzACO) 二- 有 (1) 8+ AZ2) 


642NU = NU, + 工 
BOKE NU + “1 0 :- RESURN 
IBR X% = 及 %. AND YS% = BS%.:THEN 3S1 


= 1: RETURN 
420 IF SS = 2.AND A1):= 0 THEN AI 
2) = 1: GOSUB 400:RA(O) = 3:8% = 


1 
436 :IPB 8% = 2:THBN-A(2) = 0: GOSUB 
400:S% = 0 
440 IF B% 《 Y% ?HEN A(S%) = 4:Y% = 
YY =- 1: .Gogo 486 
450 RETURN 
450 IF RS > X% THEN AtS%) = 5:Xs =- 
1: Goro 480 
460 IF B% > Ys% THEN A(SS%) = 6:Ys% = 


Y% + 1: GoTO ;480 

470 RA(S%) -= 73X% = XS 一 1 

480 S 旬 = 3 1 :，: 

4390 IF Xs%' = RS% AND ys 所 B% THEN 3S1 

四 = 2:.RETURN 

500 IF Y% > 卫 多 AND SS 《 2 THEN Al(S 
s)=0:Y% = YY - 1: COomo- 550 

510 IF.YS >.B8% THEN A(CSS) = 工 二 2 站 
(As 人 《 Xs) : 办 2 - (A(S%) = 3 
) 十 ， 有 6S%) 2 .GOTO . 550 

520 :IF Yg% 必 _B% EN A(Ss) 二 YY% = 
Y% + 1: G9TO 550 

530 ITIR X% > AS THEN AS%) = 3:X% = 
xs - 1: GOTO 550 


540 A(S%) = 1:X% = Xg$ + 1】 - 

550 8S% =- 8 多 + 1: IE sp 

560 ”GO3SUB 400 : :3 =_ 02-SQTO 490 

600 IF JI1 “了 3868 ”RETURN 

605 J1L = 站 > 1 NU = ES(JIL): PQKE N 
U yy 270 

610 HCOLOR= 0: HPLam As(JEL)，B% (IIL) 


科 G CS 村上 ， 交 和 CE 三 
6 <0_ _- 玉民 刁 RN 


、 


800 :HGR 四 = 党 3Y%-= 0:RS% = 0:B% = 
51 
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0:X =.100:Y = :80 


802. 
805 N 


HecoLOR= 3: HPLOT X,Y 


U=NU+1: BOKE NU,0O:INU = NU + 
J 


810 We =NU-N:I=J+f1: BOKE N + 


820 S 


830 - 


v,J 


s$=- 0:A= INT (W / 256):B = 
ws Ar*x 256: FOKE N + 2 * JvB 
; POKE N + 2 * 了 + 、 工 ， 全 

BEOKB NU:+ 170” 


840  POKE N +T 2 *# 于 F 2，0: POKE N 1+ 


850 人 X 
900 
305 


2 * 了 J 了 二 3 0 
= 100:Y = 1I00: RETURN 


工 蕊 XT : HOME : VTAB 22 


INPUT "Enter AME of shape-tab 


Le: e 1 BS 


910 


PRINT CHRS (4):; BSAVBB" ; BSA 


NIw， LNU -~ N- + 10 


915 
1000 


TO010 


1020 


1030 


1040 
1 050 


1070 
1080. 


1090 


:RETPURN 


Xs = AS(JLriYs% = BS%(JIIL) 
ITRF RARk(JIL1) = Cs%(I1) AND BS%(J1) 
= D%(Jl1) TIEN : RETURN 
IER JIJ> = 1 THEN X% = C9%(Il - 
l):Y% = Ds(JL - 1):A% = ASs(JIL) 
:B 呈 = B 和 (J1L: GOSUB 490 
IF JL = 0 AND Ag = 0 AND B% = 
0 THEN  POKE RARO :-f 2 * Jv,Rg&(0): 
pPOKE BO0 + 2 * J，,Bg%(0) 
X0 - Xs:X1 = Y% 


X2 二 sf3Ei3X3 . J】) 


= DSS 人 
TI060 了 5(JI1L) = NU: GO3508 1070: RETURN 


ITR X0 = X2 THEN 1130 
K = (Xkt -  X3) / (X0 - X2)2:B = 
X】 - 区 大 X0 ee 
RX = X0 -~- X2:RY = X1 一 X335-T 芭 一 
ABS (K) > 1 贡 HBEN 1150 


1100 FOR-Q = X0-TO X2.STEP SGN ( 
RX) * SGQR. (RX ~ 2 + RY ”2) / 
( RBS (RX) + ABS (RY) ) 

1110 BS =K*O+ B:A% = Q- 

1120 GosUB 1180:- NBXP : RETURN 

1130 AS% =  X0: FOR Q = 1 多 DO X3 STEP 

9 交 本 -《(XS 一 X1 和 2 B% = 人 
1140 .GO4 坦 1180:- NBEX : REBTURN 
1150 FOR Q - Xl TO X3 STPEP SGN (. 
RY) *x: SOR (RX “2 4 有 Re 2) 7 
人 了 RBS (RX) 1 RARBS (RYT)): 

1160 As - = (QQ B)./K+0.5:8g% = Q + 

1170 训 5 1150: NEXT : ,RETURN 

1180 HCOLOR= 3: HPLOT Ag,:B%: GOSUB 

410- 

1190 RETURN 

SG 程序 说 明 ， 

4 一 225 为 主 程序 ， 主 程序 的 操作 类 似 于 G P1202 程 
序 。 . 

230-250 为 接收 屏幕 上 输入 点 的 坐标 ， 并 将 相应 的 数据 
存 入 数组 里 ， J 为 指针 变量 。 

600 一 62 0 为 删除 模块 ， 能 删除 当前 或 连续 地 由 后 向 前 删 
除 造型 直线 。 一 方面 抹 掉 屏幕 上 显示 的 线条 ， 另 一 方面 相应 
缩短 造型 表 的 长 度 。 

; 800 一 85 为 继续 二 一个 造型 程序 ， 实 际 上 是 设置 下 个 造 
型 的 索引 项 。 

1000 一 1190 为 直线 显示 程序 ， 它 不 同 于 HP 瑟 OT 请 名 
画 的 直线 ， 它 是 根据 屏幕 上 接收 输入 点 坐标 ， 自 动 地 用 画 点 
语句 逐 点 描绘 一 条 直线 。 加 

410 一 450 为 将 屏幕 上 显示 的 信息 自动 转换 成 3 位 二 进 制 
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数据 。 

400 一 405 子 程序 将 3 位 二 进 制 数据 转换 成 十 进 制 并 送 入 
内 存 。 

490 一 510 为 不 画 向 量 的 转换 。 

对 于 圆 及 圆 弧 ， 用 前 节 的 生成 图 、 圆 驱 相 应 模块 替换 
1000 一 1196 子 程序 ;, 改变 相应 的 删除 子 程序 。 对 于 其 它 曲线 
的 造型 生成 ， 可 以 用 节点 法 原理 ， 按 HP.L OT X,Y 语 名 
设计 相应 的 模块 蔡 换 掉 相 应 的 1000 一 1190 子 程序 。， 


三 节 键盘 字符 交互 生成 造型 的 程序 


中 华 学 习 机 在 图 形状 态 下 显示 西 文字 符 有 多 种 方法 ， 比 
如 用 H P 革 OT 制 作 一 系列 子 程序 或 者 用 汇编 接口 将 相应 字 
符 打印 在 屏幕 上 ， 但 均 有 不 便 ， 前 者 设计 麻烦 ，: 且 占用 较 多 
的 内 存 ; 后 者 不 能 在 任意 位 置 上 标注 西 文 以 及 旋转 字符 或 者 
字符 上 有 和 角 标 A 1 等 不 能 满足 要 求 。 下 面 介绍 的 程序 是 借用 
造型 表 中 各 个 子 图 块 ， 采 用 拼 积 思想 来 生成 键盘 字符 的 任意 
组 合 ， 组 合 以 后 仍然 是 一 个 造型 。 

人 程序 要 求 

能 完成 键盘 字符 在 图 形状 态 下 的 任意 拼 积 ， 并 有 较 好 的 
适时 效果 。 

”能 存盘 ， 能 删除 即刻 显示 的 字符 。 

@ 源 程序 

造型 表 清 单 〈 见 G P1303- 1 7。 

-2000.。.2580 


2000- 7B 00 02 01 0RA 01 16 01 
. 2008- 27 01 37 01.47 01 58 01 
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55 


56 


2140-~ 
ZL148-~ 
2150- 
21958- 
2160- 
21608- 
2170- 
2178- 
2180-~ 
2188- 
2190- 
2198- 
21A0- 
21A8- 
21B0- 
21B8- 
21LC0- 
21C8- 
21D0- 
21D8- 


21E0- 


21B8 - 
21F0 - 
21F8- 
2200- 
2208- 
2210- 
2218-- 
2220- 
2228 - 
2230- 
2238- 
2240- 
2248- 
2250- 
2258- 
2260- 


] 2 


0C ! 


1C 
20 
JC 
0A 
9 4 
0C 
0 也 


3F 
49 
09 ， 


00 
09 


0C 
29 
23 


00 


4D 


2D 
09 
0C 
01 


17 


2D 
AD 
0C 
A4 
3C 
29 
3D 
214 
01 
00 
09 
0C 
25 


57 


58 


2490- 
2498- 
24A0- 
24A8-- 


24B0- F7 36 0OE 25 A9 52 09 00 
24B8- 24 24 2E 0C 75 96 09 01 
24C0- 00 2D 65 1C 3F 1C 0C 2D 
24C8- AD 92 09 00 09 20 24 3F 
24D0- ?2D 2D 3FRF 24 36 B6 11 0C 
24D8- 55 01 00 20 24 36 76 65 
24E0- 25 24 36 36 0D 01 060 09 
24E8- l]C lC 24 4D 31 F6 4E 09 
24F0- 00 20.24 36 56 0C 74 62 
24F8- 24 34 B6 09 01 00 0C 0cC 
2500- 0C 0C D4 DB 0BE 0E 0BE 0FE 
2508- 45 00 A8 2D 0C 24 3F BE7 
2510- 24 4D 31 36 B6 09 01 00 
2518- 0C 0C 0C 0C 3F 3BF 97 12 
2520- 29 2D 6D 01 00 2D 00"00 
2528- 00 00 00 00 00 00 00 00 
2530- 00 00 00 00 00 00 00 00 
2538- 00 00 00 00.00 00. 00 00 
:2540- 00 00 00 00 00 00 00 00 
2548- 00 00 00 00 00 00 00 00 
2550- 00 00 00 00 00 -00 00 600 
2558- 00 .00 00 00 00 00 00 00 
2560- 00 00 00 00 00 .00 00 00 
2568- 00 00 00 00 00 00 00 00 
2570- 00 00 00 00 00 00 00 00 
2578- 00 00 00 00 00 00 00 00 
2580- 00 


造型 表 放 在 $ 2000 为 起 始 处 ,各 造型 按 国标 码 次 序 排列 ， 
几乎 包括 了 键盘 的 全 部 字符 ， 一 个 造型 代表 一 个 字符 , 在 ] 
提示 符 下 ， 输 入 CALL -151 回 车 ， 在 提示 符 头 下 顺序 输入 
上 述 数 据 ， 待 完成 后 ， 按 CTRL-C 回 车 返 町 到 BASIC 
提示 符 ] ， 然 后 输入 BSAVE 名 字 ，A 叫 2000>L 有 526 将 
上 述 造型 数据 存盘 ， 程 序 G P1303 的 运行 需要 上 面 的 造型 表 
CGP1303-:1 7y- 支持。 

59 


60 


5 REM GBP1303 

6 IF PERKX (3192) = 126 THEN 10 

8 PRINT CRHRS (4);"BLOAD CP1303--1，AS 

2000" 

10 DIM B$%(200) 

20 HOME :. INBUT "BEBnter numbers of sh 
引 Pe ”5MS%， 

50 HGR2 

55N = 245706:X= 80:Y = 80 

538. NU = NI+ 2 大 M%g + 2: POKE NM% 


千 


59 GOSUB 400 


60 KL = 232:K2 = 233: POKR K1,0 

70 SCRLE= 12: ROoT= 0: HCOLOR= 3 

80 ”GET AS: 国 

82 IF AS = CHRS (27) THEN : GOSUB 4 
60: TEXT : END 

85 IF AS CHRS (17) THEN  HCR2 :S1 

= 1: GOSUB 400 

87 IFAS = CHRS (5) THEN TEXT :S1 
2: HOME : GO0OUB 460: END 

90 IF AS -> CHRS$ (32) :THEN  _POKBE NU ， 
73:NU -= NU:1 1: BOKE NU,9:NU = N 

U+1: BOKE NU,0 

100 E% = ASC (AS)… 

110， IF BS% > = 33 AND E%《 = 90 THEN 
J% = ES% = 32:; GOSUB 150 

120 IPBP RS = CHRS (8) THEN GOSUB 35 


0 
130 GoTo 80 
140 END 


150 NS% = 8192 
LI160 IF J2《 0 THEN RETURN 


170 B$%(J2) = NU:AS = PEEK (NS + 2 x* 


JJ 多) 
180 B5g = PEEK (NS + LI + 2 # Jg%) 


AS5-- NS + AS% + B% x 256 


IF PEEK (AS%) = 0 THEN AS = A% 十 
| 


FOR TI = 0 TO 12000 


A= EPEK (AS + 工 ) 


IFRA= 0 THEN 260 
POKE NU + 这 ,和 A 
NEXT 1 


NU = NU+ TI: POKE NU,0 
JI2=J2+ 1 


IF Ja> = 30 TREEN J2 = 0 


POKBE 一 16304,0: POKE -~- 16297.0 


时 


POKE K2,96: DRAW-J RAT X,t 
RETURN 加 

IF J2 = 0 THEN J2 = 0: GOTO 370 
HCOLOR=. 0: DRAW.J: RAT:X,Y 
NHCOLOR-:-3:NU = Bg%(I2 -. 1) 

POKR NU, 0 

DRAW JI AMT X,Y:J2 = J2 - 1 

RETURN 

IF J > PEEBK (N) TIEN CALL 6533 
8 : RETURN 


NU = NUT+ 1 2: POKE NU,0O:NU = NU 1 
1:J =Jf+f 1 

ws = NU - 和 N. 

As = INT (WS / 256)2BYS. = W5% 一 AS 


256: POKER N | 2 wy J,B%: PEOKE 
Nt+f2okyJ +f 1 ，AY 
POXE NU + 1,0 
POKER N + 2xJ+2,0: POKE N .+ > 
* J + 3,0 
RETURN 
HOME : VTAB 24: INRUT "Enter NAM 
已 一 一 -~" ;  B5$ 


PRINT CHRS (4) "BSAVE"; BSA" 
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NI"”,L"INU -NT+ 10 
480 “RETURN 


@ 程序 说 明 

5 一 140 为 主 程序 ,58 与 59 两 句 为 设置 造型 的 表 头 空间 ， 
并 建立 第 一 个 造型 的 索引 项 ， 按 “CTRL -Q ? 键 继 续 建立 
下 个 造型 的 索引 项 ， 并 从 下 个 造型 开始 生成 字符 造型 ，90 句 
表示 按 空 格 键 ， 屏 幕 移 动 一 段 不 画 向 量 ， 按 ES C 键 进入 存 
盘 模块 ，110 句 为 接受 键盘 字符 ， 按 A 一 “外 办 将 于 示 一 个 
相应 的 字符 。 

150 一 310 子 程序 为 将 $2000 处 造型 表 的 字符 编码 按 一 定 
格式 放 入 用 户 造型 表 之 中 ，180 句 为 取出 $ 2000 处 的 造型 的 
表 头 ,190 句 为 计算 字符 造型 数据 实际 的 地 址 。210 一 250 循 
环 为 将 造型 数据 放 入 用 户 建立 的 造型 表 中 。 

400 一 450 子 程序 为 设置 造型 表 表 头 及 每 个 造型 索引 项 。 

460 一 480 为 存盘 子 程序 NU - N 表示 造型 表 的 长 度 ， 
存盘 名 字 由 用 户 输入 。 

以 上 可 进行 键盘 大 写字 母 及 其 它 字符 的 编辑 。 如 需要 小 
写字 母 ， 则 需 加 下 面 两 条 语句 并 将 原 110 语 句 删除 。 


110 IF BEB5 > = 33 AND EC = 64 
THEN. J% = EB%5 -- 32: GO3SUB 15 
0 

115 IE ES > 
THEN JS% 


65 AND E% “《 = 90 
B% - 6: GOSUB 150 


第 四 节 ”造型 表 的 合并 、 造 型 的 拼 积 程序 


有 时 在 生成 造型 表 时 ， 常 把 一 些 经 常 使 用 的 子 图 形 生成 
几 个 小 图 库 ， 然 后 实行 积木 式 拼图 。 有 时 也 需要 将 两 个 造型 
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表 合 并 为 一 个 造型 表 或 者 分 解 一 个 造型 表 为 两 个 造型 表 。 下 
面 就 来 谈 谈 这 方面 的 交互 程序 。 

J 由 程序 要 求 

能 重 排 造型 表 的 次 序 ， 将 两 个 或 多 个 造型 表 合并 为 一 个 
造型 表 。 

能 将 两 个 或 多 个 造型 按 一 定 要 求 合并 为 一 个 造型 。 

有 存盘 及 删除 功能 。 

@O 源 程序 ( 见 GP1304) 


5 REM .GP1304 

10 DIM 8Bg%(50):DS = CHRS (4) 

20 SCRALE>= 1: ROoOT-=- 0: HCOLOR= 3 

30 KL = 232:K2 = 233: POKERE K1,0 

40N = 24570:MS% = 760:N]1 = 16384:NY 

= NL 

50 INPUT "Enter the. numbers of sha 
pe-table21 7; M 

60 POKE NvM:NU = N + 2Zyx (M + 
4): GOSUB 160. 

70 HOME : VTAB 24: INPUT "Comrnana : 
”7AS 

80 IJPRF AS = "MX THEN GOSUB 580 

30  IR AS = ”DBL"” THEN GOSUB 410 

95 1lIPR AS = CONT'" THEN GOSUB 160 : 


GOSUB 210 ， 

100 IF AS = "AD"” THEN HGCR. : GOSUB 
210 

420 IF AS = "BLOAD'" THEN COSUB 37 

1 . 

130 IF AS = "END" THEN COCUB 340 : 
END 

140 GOTO 70 

150 END 


1I160 NU = NUT+ 1 : POKE NU,0 


64 


165 NU 


NU + 上 


170 ww =NU-N:J=J+f 1: POKE N + 
1，j 

180 S% = 0:R = INT (ws / 256):B = 
WY% -.Ayw 256 

185 PPOKE N + 2 xx J,B: POKE N 1 2 * 

IT+ TARA 

190  POKE NU + 1,0 

200 “RETURN 

210 HOME : VTRARB 24: INPUT "Shapes=" 
7 有 AS 

220 J= VRL (RARo) 

230 IFRF AS = "Oo" THEN RETURN 

240 IFJ =00RJ> PEEK (N% + 
1) THEN CALL 65338: GOTO 210 

250  POKE K2,64: HCOLOR= 3 

255 DRAW J AT 100,100 

260 P = PEBEK .(49152) 

270 IFPFP = 78 THEN HGR : GoT0O 210 

280 IFP = 81 THEN GOSUB 440: HGR 
: GOSUB 320: RETURN 

290 “ HCOLOR= 0: DRAW J AT 100,100 

300 IFRP > 128 THEN  POKE 49168,0 

310 ”GoTO 250 

320 HGR :IJ = PEEK (N + 1) 

330 “HHCOLOR= 3: ROT= 0: POKE X2,96 

332 DRAW J AT 100,100 

335 “ RETURN 

340 TEXT : INPUT "Enter NAME--";RAS 

350 PRINT D$S$S;"BSAVEY" :AS AIN;I YL 
"NU -  N + 10 

360 ”RETURN 

370 “HOME : VTRB 24: INPUT "Enter Cc 
-blolks NAME---";AS 

390 “PRINT DS;"BLORD";RS;i", RAIN1L 


400 
410 


425 


430 


RETURN 

IF J2《“ 0 THEN GOTO 430 
NU = B%(J2 - 1):J2 = J2 1 
POKE NU + 1,0: HGR : GOSUB 320 


RETURN 
IF J2《 0 THEN RETURN 


_ B%(J2) = NU 


RLI = PEEK (NS& + 2 * J) 一 
BL = PEEK (NS + LI+2 xx J) 
Cl1L = PEEK (NS + 21+2 克 JJ) 
AL = NS%+RAL+ BL ww .256 
IF PEEK (AlLj = 0 THEN AL = AL 
+ 和 
FOR IT = 0 TO 12000 
AAA = PEEK (AL + II) 


IFEA- 0 THEN 540 
IERF BS《 > MY THEN PPOKE NU + 
I, 和 ARA 
NEXT I 
NU = NU + II 1: POKE NU + 1，0 
Jazz=J2 + 工 
GOSUB 320: RETURN 
B% = NU 
IF PEEK (NU)  《 > 0 THEN NU = 
NU + 1 


GoSUB 320 

GET 8B5$ 

IF BS = "IT" THEN  POKE NU,128: 

NU = NU + 1:， GoTo 710 

TF BS = "JI THEN  POKE NU,3:NU 
= NU + 1: GOTO 710 

IF B$S = "K" THEN  POKE NU,83:N 

U = NU + 1: GoTo 710 


TIRE DSS = "Lw TIEN  POKE NU,1:NU 
= NU + 1: GoTo0 710 
IF BS = "Er THEN FOR I = 0 TO 


65 


660 


TREE BS = Sn 
NU ,3S1L1: POKE 
2: GOTO 710 
670 ITIR BBS = ?DY 
NU ,S1L: PORKE 
2: GOTO 710 
680 IF B$S = "BR 
NU ,51: POKE 
2: CoTO 710 
690 IR B5S = 1DB" 
700 IFRF 8B83 = "Q'" 
710'， POKE NU,45: 
7 了 2 GO3SUB 320 
730 GoTC 5500 
740 FOR II = 0 TO 8:93 = 
750  POKE NU 4 8 
760 ”RETURN 
770 
:2 RETURN 
780 DOoKE NU ,0:INU 
790 “HCOLOR= 3: 
800 RETURN 
@ 程序 说 明 


5 一 150 为 主 程序 ，60 句 为 设置 造型 表 表 头 空间 及 第 一 
个 造型 的 索引 项 ， 按 MX 回 车 进入 移 标 模块 ， 按 DEL 回 车 
进入 删除 模块 ， 按 CONT 回 车 进入 重 排 造型 表 功 能 ， 按 AD 
回 车 进入 拼 积 模块 , 按 BLOAD 回 车 将 子 图 形 库 调 入 $$4000 


5: PPOKE NU + TI，128: 


NU + 6: GoT0 710 


THEN 


NU 1+ 


THEN 
NU + 


THEN 
NU 1 


TILUZEN 
THEN 
POK 了 HE 


NEXT :NU = 
S1 = 219 : POKE 
1 ,SI1INU = NU + 
S1 = 146: POKE 
1,SL1:NU = NU + 
S1 = 73: POKE 
1,S1:NU = NU + 
握 

GOSUB 770 
RETURN 

NU + 1 ,0 


I): POKE NU + TI,S: NEXT 


0 


PEEK (786 + 


IF NU《“ = BS% THEN CALL 62338 


= NU - 】 虐 


DRAW J AT 100,100 


为 起 始 处 。 按 END 回 车 进入 存盘 模块 并 结束 运行 。 
160 一 206 为 设置 造型 索引 项 的 子 程序 。 


210 一 340 子 程序 为 选 子 图 块 的 人 机 交互 界面 模块 。 选 中 


子 图 块 后 ， 在 屏幕 闪烁 地 显示 被 选中 的 造型 , 按 N 键 重新 选 
】 
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按 Y 键 表示 选中 并 进入 拼 积 功能 。 

320 一 335 为 显示 被 积 以 后 的 图 形 子 程序 。 

340 一 360 为 存盘 子 程序 。 

370 一 400 子 程序 将 子 图 库 调 进 趾 4000 为 起 始 处 ， 该 图 库 
由 造型 表 中 的 各 造型 组 成 ， 可 达到 8 上 KB 的 空间 。 

410 一 43 0 为 删除 子 程序 ， 可 删除 被 积 的 造型 。 

440 一 560 子 程序 为 将 图 库 中 的 造型 的 二 进 制 编码 数据 放 
进 用 户 的 图 表 中 。 

580 一 730 为 移 标 子 程序 ， 可 以 准确 地 交互 确定 造型 矢量 
的 终点 位 置 ， 以 便于 个 造型 的 拼 积 ， 按 工 键 向 上 移动 1 个 不 
画 向 量 ， 按 ] 键 向 左 移动 1 个 不 画 向 量 ， 按 氏 键 向 下 移动 1 
个 不 画 向 量 ， 按 工 键 向 右 移动 1 个 不 画 向 量 ， 按 忆 键 向 上 移 
动 6 个 不 画 向 量 ， 按 S 键 向 左 移动 6 个 不 画 量 ， 按 D 键 向 下 
移动 6 个 不 画 向 量 ， 按 下 键 癌 右 移动 6 个 不 画 癌 量 ， 按 B 键 
删除 当前 的 不 画 向 量 ， 按 Q 键 退出 。 
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第 四 章 ”图 形 的 组 织 


前 面 第 二 、 三 章 我 们 给 出 了 用 点 线 法 和 造型 法 的 有 关 实 
用 工具 。 组 织 一 幅 图 形 可 通过 点 线 法 来 交互 完成 ， 用 设置 文 
件 结构 来 存 贮 有 关节 点 数据 ， 也 可 以 通过 造型 法 来 生成 一 由 
图 形 ， 它 存 贮 的 是 图 形 轨迹 的 二 进 制 编码 (造型 表 )。 前 者 生 
成 图 形 的 速度 慢 ， 后 者 具有 较 大 的 灵活 性 ， 并 且 显示 图 形 速 
度 快 ， 便 于 实现 复杂 图 形 的 动画 。 本 章 主要 介绍 从 数据 结构 
角度 如 何 来 组 织 多 幅 图 形 ， 这 里 主要 针对 造型 法 ， 把 每 个 千 
型 作为 子 图 形 来 处 理 ， 对 于 用 点 线 法 ， 介 绍 的 方法 也 完全 实 
用 。 


第 一 节 用 数据 结构 描述 图 形 


在 进行 交互 图 形 设计 时 ,生成 的 图 形 数据 不 作为 单个 项 ， 
而 是 在 一 定 的 结构 上 加 以 处 理 ， 实 际 上 ， 我 们 在 前 面 的 图 形 
交互 程序 中 ， 已 经 用 到 了 数组 、 文 件 ， 并 涉及 到 其 相应 的 操 
作 。 在 进行 数据 操作 时 ， 需 要 一 种 特有 变量 ， 叫 指针 ， 指 针 
变量 指向 计算 机 内 存 中 另 一 个 变量 的 位 置 。 由 于 BASIC 语 
言 中 不 能 使 用 指针 ， 下 面 介 绍 的 程序 都 是 通过 数组 的 下 标 及 
变量 来 确定 指针 。 

一 、 图 形 菜单 的 数据 格式 

图 1. 8 是 通用 造型 软件 包 的 主 菜 单 ， 其 汉字 为 造型 汉字 ， 
每 个 汉字 作为 一 个 造型 ， 以 左上 角 为 造型 的 起 点 ， 共 有 25 个 


68 


汗 a 且 
图 1.8 图 形 汉字 菜单 屏幕 


TEL ES 主 、 单 、 
菜 、 第 、 版 、2 0、 结 、 [L_ |]、 和 西 。 
显示 图 1.8 的 程序 ( 见 GP 1401 )。 
5 REM  GP1401 
6 DATA 3，,255,4,，3，2,238,5,3，4,，218， 
2y3,1，202v，4,3，6，254，217，3，5,，236 
,27， 3，14， 220， 27 ， 3 
7 DATA 26 ， 203 ， 28， 3， 9，,2524，49,，3,，1， 
203，49 ， 3， 8 ， 229， 49， 3， 6， 254， 71， 3 
,5,236,71,3,16,221,72，3 
8 DATA 2205,171,3,15,255,94,，3,，13， 
221,3935，3,13，221,95,，3,14，237,，94 
"3,12,205,94,，3,1L1L1,255,116,3 
?3 DATA 10,203,114,3,17,255,137,3，2 
4,203,137,3,，18,141,30,3J,20,147 
,68，3 
10 DATA 19,146v,1IlLl,3,22,51,140，3 
23,28,151,3,21,10,139,3,25,19? 
9 ， 2 3 
20 DIM AS%(35)， BS%(35) ， CS%(35) 
30 FEOR I = 1 TO 31 
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40 READ. AS(I)，BS%(I),C%(I)， 蕊 : NEXT 


42 HGR2Z : SCALE= 1 工 

50  HCOLOR= 3: RoT= 0 

60 BOKE 232,0: BOKE 233,96 
10 FRROR IL= 1 TO 31 

80 DRAW AS(TI) AT BY(I)， C9%(I) 
90 NEXT 

100 “END 


程序 GP 1401 调用 各 造型 的 数据 放 在 A6 I)、 B%(I)、 
C%(LI) 数 组 中 ， 各 造型 颜色 均 为 3 号 颜色 。 这 些 数 据 可 以 
按照 下 面 约定 结构 来 描述 。 见 图 1. 9。 


图 1.9 图 形 数据 格式 


第 一 位 为 图 号 ， 第 二 位 为 该 图 号 所 要 显示 的 造型 数 ， 后 
绪 每 四 位 表示 调用 某 个 造型 的 代号 、 位 置 坐标 和 颜色 。 上 述 
结构 可 以 描述 由 造型 来 组 织 的 一 幅 图 形 ， 用 一 个 A%( 工 ) 数 
组 来 表示 该 种 结构 ，A % ( 0 ) 表 示 图 号 ，A % ( 1 ) 表 示 该 图 
形 包含 的 造型 数 ， 其 显示 程序 如 GP 1402 所 示 。 

4 REM  GP1402 

5 “DATA dL，，31 


6 DATA 3， 255， 4,3v2,238,5,3v，4,218， 
5,3,1v202,4,3,6， 254,27， 3,5， 236 
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,27,3,14,220,27,3 

7 DATA 26,203,28,3,9,254,49,3,7， 
203,49,3,8,229,49,3,6,254,71，3 
,5,236,71,3,16,221,72,3 

8 DATA 2,205,71,3,15,255,94,3,13， 
221,95,3,13,221,95,3,14,237,94 
,3,12,205,94,3,11,255,116,3 

9 DRATA 10,203,114,3,17,255,137,3，2 
4,203,137,3,18,147,30,3,20,147 
,68v3 

10 DRTRAR 19,146,111,3,22,51,140,，3 
,23,28,151,3,21,10,139,3,25 ,1 
39,23 

20 DIM AS(200) 

25 RERAD RS%(0) ,RS(1) 

30 FOR I = 29?oORAsSsL) *4+1 

40 “READ RS%(I): NEXT 

45 HGR2 : SCALE= 1 

50 ”IICOLOR- 3: ROT= 0 

60 “BOKE 232,0: POKE 233,96 

70 FOR I = 1T7o 31 

80 DRAV AS(4 * IT - 2) MT RS(4 * I - 
1),RAs(4 * 工 ) 

90 NEXT 

100 “END 


运行 GP 1401 和 G P 1402 需 要 上 述 25 个 汉字 造型 的 造型 
表 。 
二 、 用 二 维 数组 来 描述 多 幅 图 形 
、@ 关 系 结构 
前 述 图 形 汉 字 屏 幕 是 由 造型 组 成 的 一 幅 图 形 ， 可 用 一 维 
数组 来 存 贮 有 关 数 据 ， 数 组 的 维 大 小 由 造型 数 x 4 二 1 来 设 
定 。 如 果 是 多 幅 图 形 ， 我 们 可 以 用 二 维 数组 A% 〈J, 上 ) 来 
描述 ， 丁 行 表示 图 形 个 数 ，I 列 存放 相应 图 形 的 有 关 数 据 。 
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我 们 知道 ， 数 组 在 内 存 存 贮 一 片 连续 单元 ， 对 二 维 数组 ， 因 
为 我 们 设置 维 大 小 时 应 按 每 幅 图 形 中 能 存 贮 的 最 大 数 来 确定 
的 。 实 际 情况 下 ， 有 的 图 形 可 能 有 几 个 造型 数据 ， 这 样 势必 
造成 内 存 的 浪费 ， 但 另 一 方面 ， 在 实现 数据 的 操作 时 ， 二 维 
数组 描述 的 图 形 较 为 方便 ， 下 面 介 绍 该 种 结构 数据 操作 。 

@ 二 维 数组 存 贮 图 形 数据 的 几 种 操作 

增加 ， 在 某 个 图 形 数据 后 面 增加 相应 的 图 形 数据 。 比 如 
在 第 一 幅 图 形 后 面 增加 8 个 数据 ， 其 执行 细节 为 : 

“由 1 号 确定 A%(1，I )， 并 确定 I 变 量 值 Io。 

。 由 A%(1，I。) 起 顺序 输入 8 个 数据 。 

。 将 A%(1，Lo+9) 置 零 ， 同 时 将 A% (1，1) 生 
A% (1，1) +8。 零 表示 该 数据 的 结束 。 

遍历 ， 将 二 维 数组 中 的 每 个 数据 打印 在 屏幕 上 ， 执 行 一 
个 二 重 循环 ， 当 内 循环 执行 遇 到 后 面 数 据 项 为 零 则 退出 该 特 
环 。 

删除 ， 删 除 某 个 图 形 实际 上 是 将 该 图 形 数据 项 全 部 清 零 
或 者 将 其 关键 字 置 零 ， 比 如 要 删除 第 八 幅 图 形 ， 其 执行 细节 
为 : 

。 由 第 八 个 图 形 确 定 A% (GCC8，1 ) 。 

。 将 A%(8，L ) 全 部 置 零 或 者 将 关键 字 A % 〈8, 1) 和 
A% (8，2) 置 零 。 

替换 ， 和 替换 某 幅 图 形 中 的 图 形 ， 实 际 上 是 将 该 图 形 的 子 
图 形 数据 用 别 的 子 区 形 数据 代替 。 比 如 要 替换 第 三 个 图 形 中 
的 第 二 个 子 图 形 ， 若 子 图 形 为 造型 ， 则 占用 4 个 字 节 ， 其 执 
行 细 节 为: ? 

“ 由 第 三 个 图 展 确定 AC(3 ，1 ) 。 
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。 将 A%(3,8),Ao% (3,9)，A% (3, 10) 和 A% (3， 
11) 分 别 用 另 一 个 造型 的 4 个 数据 代替 。 

国 源 程序 ( 见 GP 1403) 

5 REM  GP1403 

10 DIM Ag%(10,100) 

20  VTAB 24: INPUT "commana :")AS 

25 IFRFAS (nlinOR AS > "4 THEK 

CRALL 65338: GOTO 20 


30“、IRE AS = "1”THEN GOSUB 400 
40 IF AS = "2 THEN GOSUB 600 
50 IF AS = "3"”THEN GOSUB 800 
52 IJRPF AS = "4"”THEN GOcUB 900 
60 GoTO 20 ? 

7170 END 


100 RPRFROR IT = 1 TO 100 
110 B= AS%(J,I) 
LI20 IFB< 0 THEN IO0 = IT: GOTO 1 工 


140 RETURN 

400 REM REPEND 

410  VTAB 24: INPUT "JJ="”;J 

412 IFJ《1LIORJ > 10 THEN CALL 
65338: GOTO 410 

420 GOSUB 100. 

430 INPUT ”REPEND NUMBER7" ;NUM 

435 IF NUM + I0 > 100 THEN 430 

440 FOR IL = IO0 TO NUM + IO0 - 1 

450 INPUT AS(J,I) 

460 NEXT 

470 -RETURN 

600 REM DELETE 

610  VTAB 24: INPUT "JJ=";J 

620 FOR I = 1 TO 100 

630 PRINT AS(J, TI) "; 
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NEXT 

PRINT 

PRINT ”LIS thne numbezS2dY/N>" 

GET AS 

IFR AS = "N” TIHEN CALL 62338 
GOTO 610 

RETURN . \ 

FOR TI = 1 TO 100 


Ag%(J,I) = 0 
.NEXT 


RETURN 


REM TITRAVERSE 


FOR J = 1 TO 10 
PRINT "J=";J;n 一 -1 
FOR I = 上 TO 100 

= AS%(Jv,T) 

IFB= 0 THEN 840 
PRINT B;” "; 


.NEXTI 工 


PRINT 


NRXT 了 T 


RETURN 

REM REPLACE 

VTRARB 24: .INPUT "JJ=";J 

INPUT "II="35I 

PRINT "RSs(wJnvnI")=";RAS(J,I) 


PRINT "TIS 七 he mumbcE2cY/VN>" 
GET AS 

IF AMS = nYn THEN GOCSUB 980 
IF AS = "No THEN CALL 65338 
: GOTO 910 

RETURN 

INPUT AS%S(Jv,I) 

RETURN 


全 程 序 说 明 

5 一 70 为 主 程序 ， 用 以 对 二 维 数组 A% (J] ，1 ) 施行 
下 述 操作 ， 当 A $ =“1” 时 ， 则 执行 增加 操作 ， 当 A 和 = 
“ 2 时 ， 则 执行 删除 操作 * 当 A $ =“ 3 "时 ， 则 执行 遍历 操 
作 ， 当 六 书 =“42 时 ， 则 执行 替换 操作 。 

400 一 470 为 增加 子 程序 ， 其 中 100 一 140 子 程序 为 找 出 恋 
量 1，。， 数 据 以 零 为 结束 标志 。 

600 一 710 为 删除 子 程序 ， 选 中 要 删除 对 象 时 ， 将 其 全 部 
置 零 。 ， 
” 800 一 860 为 遍历 子 程序 ， 将 所 有 的 数据 显示 在 屏幕 上 。 
900 一 990 为 替换 子 程序 ， 用 以 蔡 换 指定 的 A% (J,1) 之 


中 的 某 一 个 数据 。 
三 、 用 索引 结构 来 描述 多 幅 图 形 
山 变 形 树 结 构 


对 上 述 的 用 二 维 数组 来 描述 图 形 的 结构 ， 我 们 也 可 以 用 
一 维 数组 来 描述 ， 并 设置 一 个 索引 表 头 存放 各 图 形 指针 ， 
A%(I) 数 组 存放 各 图 形 指针 ，B % ( 工 ) 数 组 存放 各 图 形 数 
据 ( 见 图 1.10)。 


A%(]) Ao% (2) Ao%6 (3) Ao%. (4) 


-Bo (1) B% (50) Bo% (150) B%(400).…: 
图 1.10 ， 两 个 数组 中 数据 之 间 的 对 应 关系 
这 种 结构 类 似 于 变形 树 图 形 数 据 结 构 ， 其 结构 图 见 图 
1.11， 这 种 结构 充分 利用 内 存 ， 各 图 形 具 有 不 等 长 的 结构 ， 
每 个 图 形 数据 大 小 由 了 予 图 形 个 数 多 少 来 确定 ，. 这 种 结构 适用 
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于 内 存 小 的 图 形 结构 描述 ， 下面 看 看 该 种 结构 的 几 种 操作 。 
[人 . 
Axg di 国人 


BIT | 加 罗 到 | |. .4 
1.11 树 形 结构 

@ 索 引 变形 树 结构 存 贮 图 形 数据 的 几 种 操作 

增加 ， 在 某 个 图 形 数据 后 面 增加 相应 的 图 形 数 据 ， 对 已 
经 建立 好 的 图 形 ， 由 于 数据 实行 紧 次 格式 排列 ， 若 要 增加 ， 
一 方面 要 改变 后 绪 图 形 的 指针 ， 另 一 方面 对 后 续 图 形 数据 要 
向 后 搬移 。 若 对 新 建立 的 图 形 增 加 相应 的 子 图 形 数据 ， 则 不 
存在 上 述 问题 。 其 操作 类 似 于 二 维 数组 描述 的 图 形 数据 的 增 
加 操作 。 

遍历 ， 将 存放 图 形 数据 按 一 定格 式 显示 在 屏幕 上 ， 执 行 
二 重 循环 、 其 内 循环 的 循环 起 始 变量 及 终止 变量 即 为 该 图 形 
及 相应 图 形 指针 变量 。 

删除 ， 删 除 某 个 图 形 实际 上 改变 该 图 形 的 指针 变量 或 者 
通过 指针 变量 将 其 图 形 数据 全 部 置 零 ， 比 如 要 删除 第 二 个 图 
形 中 的 第 八 个 造型 ， 其 执行 细节 为 

. 由 A%( 2 ) 找 到 第 二 个 图 形 数据 的 起 始 位 置 B % (50 )。 

“ 由 B % (50) 确 定 被 删除 造型 的 位 置 , 即 B % (50++ 4 x 
8 十 2)。 

由 B% (50+4x8+2) 处 删除 相应 的 造型 数据 ， 
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并 将 后 续 图 形 数据 分 别 向 前 移动 4 位 。 
. 造型 数 减 1, 即 B% (51) =B% (51) - 1 的 操作 。 
蔡 换 ， 用 别 的 子 图 形 数据 代替 某 幅 图 形 中 的 子 图 形 数据 。 

比如 我 们 要 替换 第 一 个 图 形 中 的 第 八 个 造型 。 其 执行 细节 

为 ; 

.由 A%(1D) 找 到 第 一 个 图 形 数据 的 起 始 位 置 B %(1 )。 
.由 B %(D) 确 定 被 替换 造型 的 位 置 , 即 B%(1+4x8 

十 2 )。 

“由 B%1I+4x8g+2) 处 ,用 其 它 造 型 数据 替换 该 

处 的 造型 。 

我 们 还 可 以 对 这 种 结构 进一步 改进 ， 比 如 在 索引 项 里 安 

排 了 一 些 插入 指针 ， 可 以 连续 插入 多 个 数据 ， 在 内 存 允 许 情 

况 下 ， 我 们 还 可 以 对 图 形 数 据 采用 链 结构 ， 即 每 个 造型 数据 

安排 一 个 指针 ， 这 样 删除 、 增 加 操作 都 比较 方便 。 


图 源 程 序 ( 见 GP 1404) 
5 REM GP1404 
LI0 DIM ASs(1L1L1)，,BSg(500) 

20 VIARB 24: INPUT "Commanda :" ;AS 
25 IF AS "ll OR AS > 14 THEN 
CALL 65338: GOTO 20 

= "L”TIBN GOSUB 400 

40 IF AS = "2”THEN GOSUB 600 
= 3 THEN GOSUB 800 

52 IFRFAS = "4” THEN GOSUB 300 


400 ”REM REPEND 

410  VTRB 24: INPUT "JJ=n5J 

412 IFJI《1ORJ>10 THEN CALL 
65338: GOTO 410 

420 I0 = Rs(I + 1) 

430 “INPUT "REPEND NUMBERn ;NUM 
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IF NUM + I0 > 500 THEN 430 
FOR IT = I0 TO NUM + I0 - 1 
INPUT BS%(I) 
NEXT 
AI + 1) = I0 + NUM 
RETURN 
REM DELETE 
VTRAB 24: INPUT "JJ=n;J 
I0 = Ag%(I):I1L1 = AS%(J + 1) 
FOR I = I0 TO I1 
PRINT BS%(I);" "; 
NEXT 


PRINT ”Is. .the numbeIzSs?Y/N>" 


GET AS 

IF AS = "N" THEN CALL 65338 
: GOTC 610 

FOR IT = IO0 TO I1 
B%(I) = 0 

NEXT 

RETURN 

REM “ TRAVRSE 

FOR J =- 1 TO 10 

PRINT "Js=1 vi， 4 ,oo " 

I0 = A%(J):IL = AS(J + 1) 
IF I1L = 0 THEN 840 

FOR I = IO TO LI1 

PRINT B%(I);" ") 

NEXT I 

PRINT 

NEXT J 

RETURN 

REM REPLACRE. 

VTRB 24: INRPUT "JJ="); 了 J 
I0 = A%(J) 

INPUT "TI=";1I 

PRINT "B%(TI0O0 + TI”")":B%(I0O 1+ 


I ) 

940 FRIKNT "TIS the nurber2?dY/N>" 

945 GET AS 

960 JE AM = "Y" TIEN GOSUB 9380 

970 IF AS = "N THEN CALD 65338 

2 GOTO 910 

375 RETURN 

980 INPUT Bg%(I0 + I) 

9390 RETURN 

内 程 序 说 明 - 

5 一 70 为 主 程序 ，A%( 工 ) 存 放 各 图 形 指针 ，B % ( 工 ) 
存放 图 形 数据 ， 可 实现 下 述 操作 ， 当 Ad$ =“17?2” 时 ， 则 执 
行 增 四 操作 ;， 当 A 和 =“ 22 时 ， 则 执行 删除 操作 ， 当 A 
= 《432 时 ， 则 执行 遍历 操作 : : 当 A$ =“42 时 ， 则 执行 
替换 操作 。 

400 一 48(0 为 增加 子 程序 ,每 个 图 形 数据 以 零 为 结束 标志 。 

600 一 710 为 删除 子 程序 ， 当 选中 要 删除 对 象 时 ， 将 其 全 


部 置 零 。 
800 一 860 为 遍历 子 程序 ， 将 所 有 数据 按 变 长 结构 显示 在 
屏幕 上 。 


900 一 99 0 为 替换 子 程序 ， 用 以 替换 指定 的 B %(I ) 之 申 
的 某 一 个 数据 。 


全 第 二 节 ”数据 的 存 贮 方式 


前 节 谈 到 了 实现 图 形 数据 的 几 种 结构 及 其 相应 的 操作 。 

对 二 维 数组 可 以 用 随机 文件 来 存 赃 ， 随 机 文件 的 记录 长 度 即 
为 维 数 大 小 ， 每 个 记录 对 应 一 幅 图 形 。 对 索引 变形 树 结构 的 
数据 ， 用 顺序 文件 来 存 贮 ， 顺 序 存 贮 索引 指针 表 头 及 相应 的 
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图 形 数据 数组 。 也 可 以 在 内 存 开设 缓冲 区 来 存放 图 形 数据 ， 
内 存 缓冲 区 的 位 置 可 以 灵活 地 放 在 内 存 的 可 用 区 域 ， 也 可 以 
直接 放 在 造型 表 之 后 ， 并 能 同 造型 表 一 起 存盘 ， 下 面 主要 针 
对 后 一 种 方法 看 看 存 贮 数据 的 实现 。 
一 、 将 变量 或 数组 中 的 数据 放 入 内 存 
前 面 介绍 程序 是 用 数组 来 存 贮 图 形 数据 的 ， 我 们 设想 将 
数组 的 连续 存 贮 区 直接 送 入 和 造型 表 相 近 的 一 段 区 域 ， 不 就 
能 够 同 造型 表 一 起 存盘 了 吗 ? 这 里 我 们 用 另外 一 种 方法 ， 直 
接 将 变量 或 数组 用 P OK 巨 语句 放 入 内 存 。 由 手中 华 学 习 机 
是 八 位 机 ， 一 个 字 节 可 以 存放 最 大 整数 为 255， 对 于 大 于 255 
的 整 型 数 需 要 二 个 字 节 来 存放 ， 有 关 调 用 造型 涉及 到 的 都 是 
整 型 数 ， 下 面 主 要 谈 整 型 变量 及 整 型 数组 存 入 内 存 的 方法 。 
二 将 变量 放 入 内 存 
对 于 小 于 等 于 255 的 整数 , 放 入 指定 的 内 存 ， 若 将 45 放 入 
地 址 为 24567 处 ， 为 ; 
] A =45 
] POKE 24567 ，A 
取出 这 个 数 的 操作 为 : 
] A= PEFEK (24567) 
] PRINT 和 A 
45 
对 于 大 于 255 的 整 型 数 , 需 拆 成 两 个 整 型 数 来 存放 ， 若 将 
2567 存 入 指定 内 存 的 操作 为 : 
IPOKE 24576, 2567-IN 个 〈2567/256) 关 256 
IPOKE 24577,INT 人 T (2567/256) 
取出 这 个 数 的 操作 为: 
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IA=256 米 PEEK(24577) 十 P 了 芋 K (24576 ) 

IPRINT A 

2507 

四 将 数组 放 入 内 存 

前 面 介 绍 的 变形 树 图 形 数据 结构 ，A % ( 工 ) 存放 索引 表 
头 ，B %(I ) 存放 图 形 数据 ， 若 A % ( 0 ) 存 该 数组 的 长 度 ， 
B % (0 ) 也 存放 该 数组 的 长 度 ， 若 将 这 两 个 数组 中 的 数据 存 
入 指定 地 址 为 起 始 处 的 内 存 ， 相 应 程序 见 GP 1405。 


5 “REM GP1405 

7 DIM AS%(200),BS(200) 

10 FOR IJ = 1 TO ARACO) 

20 PbOKE NU + 2 x TI,RAS(I) - INT 
(AS%(I) / 256) * 256 ~ 

30  POKE NU + 2 xx I++ 1，INT (As( 


.IAA 256) 
40 NU = NUT+ 2 
50 NEXT 
co0 FOR I = 1 TO B8B%(0) 
70 PPOKE NU + 2z* TI,，BS(I) - INT 


(B%(TI) / 256) * 256 
80 POKE NO + 2*I+ 1，INT (B%( 


I) / 256 ) 
30 NU =- NU + 2 
1L00 NEXT 
110 ZEN 


说明，NU 为 开设 缓冲 区 的 起 始 地 址 。 
_ 10 一 50 为 存放 A % ( 工 ) 数 组 中 的 数据 ， 每 存 一 次 ， 变 量 
NU 自动 加 2 。 
60 一 100 为 存放 B % (上 ) 数 组 中 的 数据 ， 存 完 以 后 变量 
N U 指向 缓冲 区 的 尾部 。 
二 、 将 数据 放 入 造型 表 之 后 
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设 造型 表 放 在 $ 6000 为 起 始 处 , 将 数据 放 入 造型 表 以 后 ， 
关键 是 找 出 造型 表 结 束 的 地 址 ， 可 以 进入 监控 状态 后 ， 用 查 11) 
阅 地 址 的 方法 来 算出 ， 而 程序 SG P 1406 可 以 自动 算出 造型 表 
结束 的 地 址 。 

中 源 程序 

5 REM  GP1406 

10.N = 24576 

20 INPUT ,"Bnter NAMEYn ;AS 

-30 PRINT CHRS (4);"BLORD";AS; "AR 


SS6000"， 
20J= PEEK (NR+ 1) 


-60 A3 = PEEK (N+T 2 * J) 
65 B3 = PEEK (Nt 2x*J+1) 
70NU=N+A3+B3 * 256 


80 FORI = 0 TO 13000 

90 AZ = PEEK kNU + I) 

100 IF A2 = 0 THEN 120 

110 NEX 工 

120 PRINT "NU="n;NU 

130 END 

@) 程序 说 明 

运行 该 程序 ， 让 用 户 输入 造型 表 的 名 字 ， 该 造型 表 放 在 
$ 6000 为 起 始 处 ， 造 型 表 的 造型 数 必 须 放 在 $ 6001 地 址 。 

5 一 7 为 计算 造型 表 中 最 后 一 个 造型 的 起 始 地 址 。 

8 一 12 为 计算 最 后 一 个 造型 的 结束 地 址 。 

注意 ， 运 行 该 程序 ， 实 际 造型 数目 必须 存 入 造型 表 开 始 
的 第 二 个 字 节 内 。 

第 三 节 “图形 数据 的 交互 生成 程序 


上 面 介 绍 了 几 种 图 形 数据 结构 及 相应 存 贮 方式 ， 但 如 何 
来 生成 相应 的 数据 结构 ， 最 笨 的 办 法 是 通过 向 数组 里 输入 有 
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关 数据 # 但 这 样 不 比 编 调用 造型 的 程序 来 得 方便 ， 下 面 介绍 
如 何 对 图 形 的 动态 操作 来 交互 生成 相应 的 图 形 数据 结构 。 并 
给 出 相应 的 程序 。 

一 、 程 序 结 构 及 注 要 功能 

Q@ 程序 结构 

本 程序 采用 树 型 层次 结构 的 菜单 方式 ， 其 模块 结构 见 图 
1 .12。 

@ 程序 功能 

. 对 已 建立 造型 表 中 的 造型 实现 动态 的 复制 、 增 加 、 删 
除 等 操作 。 ， 


主 榨 借 蕊 


| 编 直 | 普 | | 痪 | | 查 | | 结 | | 存 
增 | | 看 | | 删 
. 汉 


“图 1512 图形 交 互生 成 工具 模块 图 
. 具有 查阅 、 替 换 、 幻 灯 片 功能 。 
. 可 建立 多 幅 图 形 ， 图 形 个 数 主要 取决 于 内 存 大 小 。 
. 能 将 图 形 数据 与 造型 表 一 起 存盘 。 
二 、 生 成 图 形 的 数据 结构 
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生成 的 图 形 的 结构 采用 索 
引文 件 的 变形 树 结构 ， 为 了 程 
序 简 便 起 见 ， 各 图 形 中 的 子 图 
形 没有 安排 指针 。 相 应 的 就 没 
有 插入 操作 。 该 种 结构 直接 放 
在 造型 表 之 后 ， 这 种 结构 的 操 
作 类 似 于 一 般 高 级 语言 所 提供 
的 随机 文件 ， 但 其 操作 均 在 
R A M 内 进行 ， 且 各 记录 可 按 
恋 长 存 贮 ， 理 论 上 各 记录 的 长 
度 不 是 事先 规定 ， 而 是 随 着 图 
形 的 增加 自动 增加 的 ， 一 个 图 
块 的 复制 占 4 个 字 节 ， 其 结构 

`” 见 图 1.13。 

本 结构 存 取 迅 速 ， 各 图 形 

图 1.13 ”图 形 数据 结构 数据 具有 不 等 长 ， 且 连续 存 贮 

在 造型 表 之 后 ， 对 较 小 内 存 的 微机 尤为 实用 。 

仙 源 程序 ( 见 GP 1407 ) 


2 “REM GP1407 

10 “DATA Lv,0,4，0,36,54,45,63，63 
7 452,54,4,0 

12 FOR I = 0 TO 12 

15 READ 有 A: POKBE 768 + I, 有 A: NEXT 


表 头 


因 四 加 国 四国 国 四 加 四 加 四 巴 加 | 


18 D$ = CHRS (4) 

20 SCALE 1: RoT= 0: HCOLOR= 3 
22 HC = 3:N = 24576: GOSUB 1300 
30 KL = 232:K2 = 233: POKE K1,0 
55 BOKE N1 - 1,0: BOKE N1 - 2,0: 
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60 
65 


6 7 
75 


80 


82 
85 
90 
95 


120- 


1L25 


178 


179 
180. 


185 
130 


1935 


200 


600 


605 


6el0 
700 


POKE N1 - 3,0: GOSUB 1515 
GO3SUB 170 四 
VTAB 22: INPBPUT "Entcz 5Slectio 

n:w7 AS 
tt Ah = tn YYHBEBN GoOSUB 1500 
IF AS = 21 THEN A = 2: GOSUB 

700: GOSUB 1100 ， 

IF AS = "3 THEN AS = L1:A= 3 

: GOSUB 700: HGR2 : GOSUB 85 


0:A = 2: GOSUB 700: GOSUB 11 


00 

IF AS = "4 THEBN GOSUB 600 
IF AS = "5 THEN， GOSUB' 1400 
IF AS = w6" THEN GOSUB 1600 
IF AS = "TI" THEN HOME : END 
GOTO 65 

END 


HOME : TEXT: : VITAB 4 

PRINT "1 。 Continue” 

PRINT "2。Great aa drawingq " 
PRINT "3J3。Repleas a Shape in 
a arawingqn _ 
PRINT "4。 Chanaqe the drawinq 

-colorn 

PRINT "5。Look at the dzrawin 
9--tablen 

PRINT "6。Save the dzrawing- 上 + 

able to disk" 

PRINTIT ”1 。BEna” 

TEXT : HOME : VTAB 22: INPUT 
"Color0,1，2，3，4，5，6，71>-- "7H 
C 


IE HC “0OR HC > 7 THEN CALL 


65338: GOTO .600 
I2 = 2: GOSUB 1L170: RETURN 
HCR : HOME : VIAB 23 
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705 IPA= 2 THEN INPUT "Shape= 
有 
710 IPA= 3 THEN INPUT "drawin 
S9= 7AS$ 


715 IJ = VYRAL (AS) 

720 IFA= 2 THEN IFJ = 0 0OR 
JJ > PEEK (N) THEN CALL 653 
38: GoTO 700 

722 IPA= 3 THEN IFJIJ = 0 0OR 
J > bEEK (C0 - 3) THEN CALL 
65338: GOTO 700 

740 IFA= 2 THEBN  HCOLOR- 38 BOKE 
X2,96:. DRAW J AT 100,100 

745 IFA= 3ANDRAM = 1 THEN J4 =. 
J: GOSUB 1400- 

750 P = PEEK (49152) 

760 IFP = 78 ANDAA 


2 THEN 700 


765 IF PB 78. AND A = 3 THEN 700 


780 IF PB 81 THEN HGR2 : RETURN 


790 ” HCOLOR= 0: DRAWV J AT 100,100 


800 IFP >128 THEN  POKE 49168， 
0 

810 GoTO 740 

850 KO0 = PEEK (NI - 2 x* J - 4) + 
256 * PEEK (NIL -5 -2 * 了 J) 
:Jg% = K0 

860，。 POKE K2,96 

870 FOR I = KO TO 1000 


880 AZ = PEEK (NI + 4 TI):B2 : 
PEEK (NL + If+4x* TI):C2z = 
PEEK (NI +2+4X 工 ) 

“890 RHCOLOR= PEEK (NI + 3 ff 4 * 


工 ) 


300 


910 
920 
?30- 


940 
950 
960 
970 


980 K 


990 
1000 
1010 


IC020 
1030 


1040 
1050. 
1060 
1070 
1080 
1085 
1090 
1 udu 
1120 
1130 
1140 


1150 


IF R2 = 0 AND B2 = 0 THEN L% 
= TIT + 10:Kq% = I: RETURN 
IFR-RS 《 > 1 THEN 940 


CET AS 一 


IE AS = "Q7 THEN B := 
IT -~ 1: RETURN 


DRAW AZ RM B2，C2 


NEXT 工 
RETURN 
BOKE K2,96 
= PEEK (NI - 2* J4 - 4) + 


256 * PEEK (NL - 5-- 2 * J4 
) 
HCOLOR= 3: SCRLE= T : 

FOR I = K ?0 2000 
A2 = PEEK-(NL + 4 IT):B2 = 


PEEK (NI + 1 +- 4 :; :7 C2 = 
PEEK (N1L :2 4 X 工 ) 


HCOLOR= PEEK: (NI + 4 * I+ 
了 ) 

IF AZ= 0 AND B2 = 0 THEN 1 
050 

DRRAW: AZ AT B2vC2: NEXT I 

RETURN: 、 

IF X > = 255 THEN X = 255 


IF X《< 0 THEN X 
IF Y > 191 THEN. 
IFY《< 0 THEN Y 


ie 1 
书 中 所 
和 
避 9 
扎 


有 RETURN 
zl = .10:X 1200:;Y = 100 
IF AS = 1 THEN J0O0 Kg% 
GET AS 
IFJ“ = PEEK (N + 1) THEN 
BOKE K2,96: HCOLOR= 0: DRAVW 
J AT X,Y: HPLOT X,Y 
IF AS = "TI THEN Y =Y - Cl 


: GoTO 1260 


87 


1160 IF AS > "Jr THEN X = X - Cl 
: "GOTO 1260 
1170 IFR AS = "nm THEN X = X.+ Cl 


: GOTO 1260 

1180 IF AS = "Mn THEN Y =Y +CGl 
: G9TO 1260 

11390 IF AS = CHRS (8) RD RARA- 2 
AND B《“《 >3 THEN GoSUB 16 


千 
1200 IF RS = "Fw THEN C1 = C1 + 
t210 IF AS -= ww THEN Cl1 = 1 


1220 IF AS "An AND AS 《 > 1 THEN 
JI4 = PEEK (N1 - 3): GOSUB 9 


1230 IF AS = An RND AS = 1 THE 
… Go8UB 970: 
1240 IF AS =*"B RND A= 2 AND B 
< >3 THEN :RUCOLOR= 3: POKE 
XK2 ,3: DRRAW 1 AT X,Y:; GOSUB 1 


710 
1250 IF AS = "QQ"” 了 J 芋 有 A=0:A% = 
0: G6SUB 170:J0. = PEBK (N1 - 


1) + 256' * . PEEK (RN1L 2):B = 
0:HC =-:3: RETURN 
1260 GO3UB 1060. :，” 
1270 IFRA= 2 AND B > 3 THEN 
1290. 
1280  POKE NL1 + 4 * J0,J: BOKE N1 
+f+1+4* JoO,X: POKE N1L1 + 2 
+ 4x JOY: POKE NI 1 3 4 
* J0O0 + 1L,HC 
1290 IFRFJ = PEBEK (NT+ 1) THEN 
HCOLOR= 3: POKE K2,96: DRAW 
J RAT X,Y: HPLOT X, 习 
1295 GoOTO 1130 
1300 J = PEEK (CN + 1) 


A3 = BEEK (N + 2 * J):B3 = 
PEEK (IN+2*J+1) 


NU =N+ RAR31+ B3 xx 256 
IF PEEK (NU) = 0 THEN NU = 
NU + 1 
FOR TI = 1 TO 13000 
A2 = PEEK (NU + I) 
IF AM2 = 0 THEN 1390 
NEXT I 
NL = I +'NU + 600 
RETURN . 
POKE K2,96;J = FEEK (N1 - 
3) 
) ”FOR J4 = 1 TO 了 J " 
HGR2 ” 
HCOLOR= 3: GOSUB 970 
GET BS: IR 8B$ = "Q" THEN 14 


70 
NEXT J4， 
SCALE= 1:， GOSUB 170: REIURN 


PRINT ncontinue?<N>n":， GET 入 
$ 


IF AS = "Nw THEN GOSUB 170 
RETURN 
HOME.- : GOSUB 170:J1 = 0 
IF JO > 1.THEN J0 = J0 + 2 
IF J0 = 0 THRN J0O = JO + 1 
J3 = PEEK (NL - 3):J3 = J3 
1 
FOR TI = 0 TO 12: BOKE N1 1 


4*xJod+fI,0: NEXT 


Al = JO0- INT (JO 7/ 256) 
256:BLIL = INT (JIJ0 / 256) 

”PPOKE N1 - 4:. 人 J3 * 2 有 Al 
POKE NL - 1,AL: .POKE NL - 2 


7 卫 二 
POKE N1L - 3,J3:J5 = 


1590 REBTURN - 

1600 HOME- : VTRAB 24: TEXT 

1610 TNPUY wBnter NAME ------ :0"7AA 
号 

1620 RMS = AS 1 ADBn 

1630 PRINT DS$Si"BSAVBE" ;和 AS ,和 A" IN; 
"LIN1L -NA+ 4* Jo + 10 

1640 GOSUB 170 

1650 “ RETURN 

1660 IF JO“ .= J5 TEN CRLL 65 
338 : RETUKMN- 

1670 JO0 =J0 - 1:J1 = J1L -1 

16580 ” HCOLOR= 0: BOKE K2,96: DRAVW 
PEEK (N1 + J0 * 4) AT PEEK 
(NI +1+ 4 JO0)，PEEK (N1L + 
2+ 4 * J0) 

1690， GOSUB- 1730 

1700” RETURN 

I710  POKENL + 4 * J0,J: POKXE N1 
+1+4% JI0,X: PoOKE N1 + 2 
+4x JoY: POKE NLI + 3 + 4 
大 :J0,HC 

1720 J0 = JO + 1 

1730 FOR I = 0.TO 12: POKE N1 + 
4w (IJ01+ 1) + IT,03 NEXT 


1740 PPOKE NL - 1,J0:- INT (JIO / 
256) * 256: POKE N1 - 2，INT 
(JO / 2586 ) ， 

1750 ”RETURN 

@) 程序 说 明 


5 一 125 为 主 程序 ，10 一 15 将 十 字 光 标 造型 数据 存 入 
$300 为 起 始 处 ;其 中 22 句 为 计算 出 造型 表 结 束 地 址 ， 具 体 由 
子 程序 1300 一 1395 来 完成 ，55 句 为 对 内 存 初 始 化 并 置 第 一 个 
图 形 的 指针 。 当 A$ =“12”, 执 行 继续 模块 ， 即 设置 下 个 图 
形 的 指针 ， 并 从 下 个 图 形 开始 ， 当 Ad$ =“22 时 ， 则 执行 纺 
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匈 功 能 ， 当 Ap$ =“ 3 ”时 ， 则 执行 蔡 换 模块， 当 A 中 = 三 4427 
时 ， 则 执行 换 色 模块 当 人 币 =“ 5 2 时 ， 则 执行 查阅 模块 ; 
当 A$=“62 时 ， 则 执行 存盘 模块 。 

170 一 200 子 程序 为 命令 提示 项 。 

600 一 61 0 为 换 色 子 程序 ,用 以 改变 当前 复制 造型 的 颜色， 
利用 此 项 功能 ， 可 以 对 图 形 实 现 局 部 修改 ， 实 际 上 是 抹黑 处 
理 。 

700 一 810 子 程序 为 交互 选 定 图 形 或 者 造型 的 人 机 界面 程 
序 。 被 选中 的 造型 将 以 闪烁 的 形式 显示 在 屏幕 上 ， 当 按 “ Q?” 
键 表示 选中 并 退出 该 子 程序 ， 按 “ N ” 键 重新 输入 图 形 或 者 造 
型 。 

850 一 960 子 程序 为 顺序 显示 一 幅 图 形 中 的 各 造型 模块 ， 
主要 用 于 替换 造型 的 人 机 界面 。 当 按 “Q ” 键 ， 选中 该 造型 ， 
并 记 下 该 造型 在 图 形 数据 结构 中 的 位 置 。 

970 一 1050 子 程序 为 一 幅 图 形 的 过 历程 序 即 显 示 一 幅 图 
形 的 子 程序 。 

1060 一 1090 子 程序 为 控制 光标 不 要 超出 屏幕 所 规定 范 转 
程序 。 

1100 一 1295 子 程序 为 增加 、 替 换 、 复 制 、 删 除 程序 。 按 
L 键 被 选中 造型 上 移 ， 按 于 键 被 选中 的 造型 左 移 ， 按 M 键 被 
选中 的 造型 下 移 ， 按 工 键 被 选中 的 造型 右 移 。 当 按 CTRL- 
玫 键 或 熏 键 进入 删除 操作 ， 在 具有 替换 状态 下 该 命令 失效 。 
按 CTRL-F 键 后 ， 使 得 按 一 次 移动 键 只 移动 一 格 ， 按 下 
键 可 增加 移动 速度 。 按 和 A 键 看 被 操作 的 图 形 。 按 互 键 在 当前 
图 形 层 上 复制 被 选中 的 造型 ,在 具有 替换 状态 下 该 命令 失效 。 
按 Q 键 退出 该 子 程序 。 
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1300 一 1395 子 程序 为 计算 造型 表 结 束 地 址 ， 并 将 该 地 址 
加 600， .一 个 图 形 需要 两 个 字 节 来 存放 指针 ， 则 这 600 个 字 
节 可 设置 300 幅 图 形 指针 数据 。 

1400 一 1470 子 程序 为 查阅 模块 ， 按 Q 键 退出 该 模块 ， 按 
其 它 它 键 ， 上 顺序 显示 所 建立 的 图 形 。 

1470 一 1590 子 程序 为 设置 每 幅 图 形 指针 的 程序 。 

1600 一 1650 子 程序 为 存盘 模块 ， 将 造型 表 及 图 形 数 据 一 
块 存盘 并 后 绥 。TAB。 

1660 一 1700 子 程序 为 删除 模块 ， 由 后 向 前 删除 复制 的 千 
型 。 

is 

行 上 面 程序 前 ， 必 须 将 造型 表 调 入 邮 6000 为 起 始 处 ， 

旧书 6001 基 址 存 天 和 型 天灾 际 造 更 外 教 | 


第 四 节 ” 几 个 应 用 实例 


下 面 介绍 借用 上 述 工具 程序 做 具体 几 个 图 形 应 用 的 实例 ， 
这 些 是 复杂 的 数学 公式 ， 图 形 菜单 ;复杂 图 形 等 。 
一 、 复 杂 的 数学 公式 
在 计算 机 辅助 教学 中 ， 常 常 要 建立 带 不 规则 符号 的 函数 
式 子 或 公式 的 图 形 。 建 立 这 些 不 规则 的 图 形 有 多 种 方法 ， 用 
HPLOT 语 句 ， 或 者 用 一 个 造型 ， 虽 然 用 拼 积 功能 可 以 生 
成 一 个 造型 ， 但 要 占用 较 多 内 存 。 下 面 看 看 如 何 用 工具 软件 
来 生成 相应 的 图 形 数据 结构 来 实 更 ， 十 分 方便 也 十 分 可 行 。 
复杂 的 数学 公式 一 般 由 多 个 字符 或 符号 组 成 的 ， 如 果 把 
复杂 的 数学 式 子 作为 图 形 看待 ， 则 每 个 字符 或 符号 可 以 作为 
造型 来 处 理 ， 有 关 这 些 造 型 的 生成 可 用 第 二 部 分 的 诸多 工具 
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程序 来 实现 。 然 后 再 用 图 形 数据 交互 生成 程序 eP 1407 对 造 
型 表 实 行 编辑， 最 终生 成 复杂 函数 公式 的 图 形 。 
实例 ， 求 三 个 均 质 物 体 截面 重心 玲 标 尺 ，ye 的 公式 为 : 
XiSlI 十 XzS? 十 XS3 
c S1 十 S? 十 Ss 
y =-7I1S1 二 72S2 二 y3S3 
S1 十 Sz? 十 Sa 
其 中 xi，yi 为 各 均 质 物体 形 心 的 坐标 ，s ;为 均 质 物体 面积 ， 
试 在 图 形状 态 下 画 出 上 述 求 截面 形 心 的 公式 。 
解 
1. 划分 子 造型 
上 述 公 式 的 子 造 型 包 描 ; 
x，y，c，s，1，2，3，=，+ 和 一 一 。 一 共有 
10 个 造型 。 
2. 作出 子 造型 
由 上 面 划分 的 子 造 型 需 建立 包括 10 个 造型 的 造型 表 ， 借 
用 键盘 字符 交互 生成 程序 GP 1303 生 成 上 述 10 个 造型 ， 并 按 
上 述 排列 给 予 编 号 。 
3. 图 形 生成 
用 图 形 数据 交互 生成 程序 中 的 复制 模块 完成 上 述 公 趟 的 
生成 ， 见 图 1.14。 


图 1.14 字符 组 成 的 图 形 
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4。 将 函数 式 子 编 在 高 级 语言 程序 中 

将 调用 图 1.13 的 各 造型 数据 放 在 数组 中 ， 其 程序 如 
GP 1408 所 示 。 

中 源 程 序 


4 REM  GP1408 加 
5 DATA 1,90,80,3,96,82，8,103,80 
,10,111,78，1， 110,73， 5,116,76 
4 120， 73， 5， 126， 76 
10 'DRATA 9， 129 ， 73， 1,136,73,6,142 
,76，47148， 74， 6， 154， 76， 9 159， 
76,1,166,73,?7， 171 ， 76 
15 “DRATA 4,177,73,7,183,76,4,127 
,87,5,133,，90,9,T36,86，4,143， 
87,6,149,90,9,154786,4,，161,，8 
7 
20 DRTRAR ?7,167,90,2,，90,115,3,96， 
116,8,103,1I13,10,110,111,2,1 
10,107,5,116,109,4,119,106,5 
,125,109,9,128,106 
25 DRTA 2,135;107,6,141,108 ,4，1 
47,，106,6,141,108,4,147,106,6 
,II53v108,9,159,106,2,166,107 
,7，172,108,4,178,106,7,184,1 
08 
30 DRTR 4,127,120,5,133,122,9,1 
36,119，4， 14 了 ， 120， 6,149， 122， 9 
/155， 119， 4， 162， 120,7,168,122 


35 DIM RAR%(60),B%(60),CS%(60) 
40 FOR TI = 1 TO 54 

50 READ AS%(I)，,B%(T) ,Cs%(I) 
60 “NEXT 

70 HGR2 : HCOLOR= 3: RoT= 0 
80  POKE 232,0: POKE 233,96 
90 .FOR I = 1 TO 54 
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100 DRAW AstI) AT B%(T)，,cs(I) 
110 NEXT 
L120 “END 


@ 程序 说 明 
5 一 30 语 祠 为 调用 图 1. 放 各 造型 数据 ， 调用 等 个 造型 需 
贤 三 个 数据 ， 造 型 代号 以 其 位 置 坐 标 。 有 关 各 造型 的 颜色 统 
一 用 颜色 语句 来 设 定 。 
40 一 89 语句 将 姜 ATA 中 的 数据 放 入 人 入 ( 工 )B% (ID)， 
C%(D) 中 。 罗 
90 一 3110 为 显示 图 1 14 的 语 向 。 
行 上 而 的 程序 需 要 上 述 10 个 党 玖 送 地 间 
还 可 以 间接 应 用 内 存 市 的 图 素数 据 来 显示 
用 图 形 数据 交互 生成 穆 序 GF 1407 编 辑 的 图 丈 ， 其 数据 
结构 已 经 放 在 造型 表 之 后 ， 可 以 直接 用 PEEK 函 数 取 这 些 
图 形 数据 ,. 其 程序 见 GP1409。 
个 源 程 序 ” 


5 REM. Ghb14009 

10 HGR2 :8CRVB= 1 -ROT= 0 ; HCOLOR = 
3 

(20 RPROKZ .2327 个 ?5 _.POKE 233，96. 

30. NU: 并.: 26852 了 

360 :FOR I = 1 TO 1000 

I10 J :=“ 了 SBEK (NU 本 本 重工) 2X- PEREK 
(NU :4 工 二 1)3Y = PEEK (NU 

十 4 才 I 人 2)1 CC 三 PEEK (NU + 

4 劣 江 -二 3 

120 DRRAW J AT X,Y 
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130 IFJ= 0 ANDX = 0 THEN 150 
140 NEXT I 
150 END 
@) 程序 说 明 
30 语 名 NU 变量 的 值 由 程序 GP 1406 求 出 ， 也 可 以 进入 
监控 状态 查阅 内 存 后 计算 出 。 
100 一 14( 为 显示 图 1.14 的 程序 “其 变量 ] 为 造型 代号 ， 
X 和 了 为 调用 造型 的 位 置 坐标 。 该 图 形 数据 以 两 个 零 为 结 直 束 
标志 。C 变 量 为 每 个 造型 的 颜色 值 。 如 将 图 1.14 从 一 个 位 置 
移动 到 另 一 个 位 置 ， 可 改动 120 语 句 。 比 如 向 右 横向 移动 50， 
四 下 纵 癌 移动 20。 则 ; 
120 DRAW 本 AT X+50，Y+20 
若 要 在 原 位 置 上 道 时 针 旋转 90 度 ， 则 增加 语句 。 
四 105 ROT = 48 
145 ROT= 0 
105 句 将 各 字符 道 时 针 旋 转 90 度 ,145 句 在 旋转 好 之 后 恢复 正常 
显示 。 
二 、 图 形 汉字 屏幕 的 实现 
中 华 学 习 机 具有 汉字 功能 ， 但 执行 由 汉字 组 成 的 软件 速 
度 稍 慢 ， 由 于 汉字 是 使 用 文本 状态 显示 ， 在 图 形状 态 下 不 便 
于 标注 汉字 。 有 些 情况 下 ， 即 要 显示 图 形 ， 又 要 在 任意 位 置 
上 标注 汉字 ， 则 只 能 采用 图 形 汉字 ， 用 造型 来 组 成 汉字 ， “ 速 
度 能 够 满足 要 求 ， 而 且 造型 汉字 表 可 以 放 在 内 存 的 任 一 区 域 。 
有 关 造 型 汉字 的 生成 可 借用 前 面 的 造型 生成 工具 。 也 能 由 
STC2.0 软 汉字 直接 由 程序 转换 成 造型 汉字 ， 组 成 相应 的 汉 
字 屏 幕 可 通过 图 形 数据 交互 生成 工具 实现 。 
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1. 由 软 汉 字 直 接 转 换 成 造型 的 程序 
人 源 程序 〈 见 GP1410) 


5 REM :、 -GP1410 

7 INPUT FE 

10:” DIM 夷 (16)15)， B(8y38 = 16384 
15 BOKB 8S,N: POKE S 1 1TwN3S = S + 


2 
20 ”FOR I = 1 TO NA = 24Nx21+ 
(T 1)* 128:B = INT (ALV/ 


256J5 BOKE SA B:* 256:: POKB 
0 8 1，B39: 3 2: NEXT 
25 -FOR 工 


= reO NIX > 32w (I - 
1) + 286320 ，，， ， 

30 FOR JI = 1 TO 30: 二 和 PEBK (X + 
了 基 - 本 

35 FOR K:= 7 ro 0 .STEP - 1:8(8 - 
K) =Y> = 人 ”KoY=Y- 2、 


K * (B(8 长) 门 :NBXT 
37 PB>J-:15* (JJ >15):Q = (J《 
= 15) 19yw (J>15) 
40 FORK =.0 TO 7:A(Q + Kp) = B 
(K + 1): NEXT 


45:， NEXT 
50 .FOR K = 1 Yo 7: -PORKE 3S;24:8: 
8 + 工 : EXYT 和 


55 :了 OR - 攻 = .1.90.16: FOR J = 1 TO 
15: PRINT AUWW;J)7 : NEXT 

57。 PRINT : NEXT 

60 K = 1 

65 FOR M= 1 zo 16 

67P=-M/2 > INT (M / 2) 


70 FOR JIJ=P+15* NOT (P) TO 
15w*P+ NoT (P) STEP PB - NoT 
(P ) 


75K=K+1l: IFK> 2 THEBN  POKE 
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S,B(2)*8+Bl):S= 3 | 1: 
K = 1】 
80 DBD(K) -PPx (IJ > 1 AMND No 
(P) OR J《 15 AND P) +2>* (人 
J= 15)*P+2# (JI = 1) * 
NOT (P) 13w NoT (P) w* (J 
《 >1 AND NOT (P) OR J: 
> 15 AND PB) 4 yx AM, IJ) 
85 NEXT : NEXT、 
90 BOKBE 3,0:S3 = 3 + 1 
95 NBEXT 
100，” HRGR : HCOLOR< 3: ROT= 0: SCALE= 
1:， POKE 232,0: pPOKBR 233 ,64: FOR 
IT = 1 TON: DRAWWI AT 140,8 
0: GET AS: XDRAW I AT 140,80 


105 TEXT : PRINT : INPUT. "The NA 
ME of the Shape--")RAS2 IF A 
$ = wm THEN 115 
110 PRINT CHRS (4) ;mwBSAVE"; AS; 
,RS4000n;nLn;S - 16384 + 5 
115 END 
@ 程序 说 明 
使 用 前 ， 首 先 把 你 所 想 转换 成 向 量 的 汉字 在 STC2.0 系 
统 下 产生 一 个 小 字库 并 存盘 ， 然 后 返回 到 DOS 系统 ， 把 小 
字库 调 入 内 存 ， 运 行 此 程序 只 要 输入 小 字库 中 汉字 的 个 数 即 
可 。 
5 一 15 句 为 产生 向 量 汉 字 造 型 表 表 头 。 
20 一 45 句 为 产生 汉字 数组 表 。 
50 一 95 为 写 入 造型 表 内 容 。 
100 语 名 为 逐一 显示 汉字 向 量 。 
9 变量 为 造型 表 的 起 始 地 址 ,数组 A(D) 为 汉字 数组 表 , 数 


2 
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组 B (I ) 为 每 次 读 得 内 存 中 小 字库 的 内 容 。 

2. 图 形 汉 字 屏 幕 的 实现 | 狂 玲 ] 

图 1.15 是 通用 造型 软件 包 中 建立 图 表 模 
块 的 主 菜单 ， 建 立 这 个 汉字 屏幕 可 按 以 下 步 。 庄 癌 
又 来 实现 。 圆 弧 

@ 每 个 汉字 用 一 个 造型 ， 各 个 造型 作 棋 图 
为 子 图 形 ， 造 型 表 按 上 顺序 排 列 为 ， 灵 、 续 、 条 中 
矢 . 量 、 直 、 线 、 造 、 圆 、 弧 、 枯 、 辅 、 助 、 。” 刘 出 
退 、 出 和 [“] ， 一 共 16 个 造型 。- 1.15 图 形 

图 按 上 述 排列 顺序 , 由 造型 生成 工具 或 汉字 屏幕 
者 由 软 汉字 转换 成 造型 汉字 程序 生成 造型 表 。 
图 用 图 形 数据 交互 生成 程序 生成 图 1.15， 该 汉字 菜单 
在 屏幕 的 右上 角 。 

@ 将 这 个 图 形 汉 字 屏 幕 编 在 主 控 程 序 中 , 即 显示 这 个 汉 
字 屏 幕 的 模块 放 在 主 控 程 序 中 。 

3. 图 形 汉 字 区 域 点 菜单 的 实现 

图 1.15 为 汉字 菜单 ， 通 过 屏幕 的 矩形 方 框 ， 如 何 来 选中 
菜单 上 的 某 一 模块 ， 一 方面 要 控制 矩形 方 框 的 上 移 或 者 下 移 
位 置 ， 另 一 方面 在 移动 过 程 中 要 记 住 汉字 菜单 与 方 框 重合 的 
位 置 , 区 域 命令 点 菜单 方式 要 用 位 置 及 键 的 复合 条 件 来 确定 。 

,@ 源 程序 见 〈GP 1411) 


5 REM  .GP1411 


6 HGCR2 
10' CD = 31733:DD = CD + 1:ED = CD 
十 分 1 


15  HCOLOR= 3J: SCALE= 1: RoT= 0 
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20 KL = 232:K2 = 233: POKE K1L,0 
22 IO0 = 1: GOSUB 200 


25 GET AS 

30 IF AS = CHRS (13) AND K = 1 THEN 
GOSUB 500  . 

40 IF AS = CHRS (13) AMND XKXK = 2 THEN 
GOSUB 1000 

50 IFAAS= CHRS (13) AND:XKX = 3 THEN 
GOSUB 1500 

60 IF AS =，CHRS (13) AMND K = 4 THEN 
GOSUB 2000 本 

70 IF AS = CHRS (13) ANDK = 5 THEN 
GOSUB 2500 

80.， IFR AM = CHRS (13) AMND K = 6 THEN 
GOSUB 3000 

90 IF AS = CHRS (13) ANDK = 7 THEN 
GOSUB 3500 国生 


110 IF AS = CHRS (13) AMND K = 9 
THEN TEXT : END 

150 IF AS = "In THEN  HCOLOR= 0: 
DRRAW 20 AT 232,AD:AD = AD - 
17:K = K - 1: GOSUB 190 

160 IF AS = "Mn'OR AS = CHRS (3 
2) THEN  HCOLOR= 0: DRAW 20 RAT 
232,AD:AD = AD + 17:K = K + 
1: GOSUB 190  . 

170 GOTO_ 25 

180 .END 。 

190 IF AD 》 
AD = 0:K 

191 BOKE X2,112 

192  HCOLOR= 3: DRAW 52 AT 232, AD 


140 OR AD 〈《 .- 0 THREN 
1 


195 RETURN 

203 BOKE K2,112: FROR I = I0 TO 1 
000. 

204 AL = PEEK (CD + I* 3):B1L = 


100 


PEEK (DD + 3 w TI):C1L1 = PEEK 
- (ED+3 8 工 ) 
206 IF AL = 0 AND BL1 = 0 THEN AD 
= 0:K -= 1: RETURN 
208” DRAW AL AT B1,C1 
209 NEXT 


加 程序 说 明 

5 一 180 为 主 程序 ，C D 变量 为 汉字 造型 表 图 形 数据 的 
起 始 地 址 ，150 句 为 使 方 框 上 移 ，160 句 为 使 方 框 下 移 。 在 
移动 过 程 中 ， 记 下 了 方 框 的 位 置 ， 为 了 比较 方便 ， 设 置 K 变 
量 与 方 框 移动 位 置 一 一 对 应 ， 当 K = 荆 时 ， 对 应 继续 模块 ; 
当 K = 2 时 ， 对 应 矢量 模块 ， 当 K = 3 时 ， 对 应 直线 模块 
当 K = 4 时 ， 对 应 椭圆 模块 ， 当 K = 5 时 ， 对 应 圆 绝 模 块 ; 
当 K = 6 时 ， 对 应 椭圆 模块 ， 当 K = 7 时 ， 对 应 椭 弧 模块 ; 
当 K = 8 时 ， 对 应 退出 模块 。 

190 一 195 子 程序 为 控制 矩形 方 框 不 超出 汉字 菜单 之 外 。 

203 一 209 子 程序 为 显示 这 个 图 形 汉 字 菜 单程 序 。 

三 、 多 幅 图 形 的 设计 

在 进行 幻灯 片 演示 ， 或 
者 顺序 演示 一 系列 图 形 来 定 
性 表达 某 一 概念 时 ， 其 中 每 
-- 幅 图 形 可 以 用 一 个 造型 ， 
但 这 样 即 浪费 内 存 ， 作 图 效 
率 又 低 。 多 幅 图 形 的 设计 首 
先是 子 图 形 (造型 ) 的 划分 ， 
然后 是 图 形 数据 的 交互 建立 ， 
下 面 用 一 个 实例 来 谈 谈 这 个 图 1.16 ”零件 的 二 视图 
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NA、 区 
: AR， 
E 


和 


| NNSSS 二 


几 1.175: 零件 的 也 图 形 ， 
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问题 。 
图 1.16 是 一 个 机 械 零 件 的 主 俯视 图 ， 要 求 顺序 演示 这 个 
主 俯视 图 的 作 图 步骤 。 
"按照 专业 知识 ,分 七 步 来 完成 图 1 16， 由 此 分 解 每 一 个 - 
子 图 形 , 共 有 7 个 子 图 形 ， 见 图 1 ]16。 按照 各 子 图 形 的 要 求 ， 
对 于 不 同 的 部 分 分 别 建立 相应 的 子 造型 ;比如 图 1.17(a ), 需 
建立 3 个 子 造型 ,图 1.17 (bsc,d'e 必 f ) 均 需 建立 2 个 子 造 型 
而 图 1.17 (g ) 作 为 一 全 造型 来 处 理 。 
.由 图 1.17， 根据 图 形 数据 交互 生成 程序 G. P1407 生 成 7 
幅 图 形 ， 最 好 按 执行 顺序 完成 上 述 图 形 的 生成 。 
山 显示 程序 ( 见 GP 1412) 
5 REM  GP1412 
6 PRINS .CHRS (全 7"BLORD 1412-1" 


20 “BOKE 232 ， 0: _POKE 233,，96 
30 不 OR I = 六 IT9 8. 

40 READ x(I7,Y(CIT) 

50. NEXT 工 - ， 

60 HGR  : RHCOLORz= 本 

70 SCALE= 1: ROT= 0 

0， oOME : VTAB .23 


30 PRINT "和 -一 人 11 Sraphics 忆 
7 盖 尼 和 给” 和 

100 PRINT "S Drawinaq， S 七 会 户 : 

X----Xadzaw" 

一 10 GET AS ， 本 

120 IJIPR AS = CHRS.:(65). THEN GOSUB 
170 

130 IFEFAS = CHRS (88) THEN HGR 

140 IF RS = CIHRS (69) THEN GOSUB 
380: END 
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104 


” DRAW 1L RAT X(13 1142,Y(1) 


IPF AS = CHRS (83) THEN GO 


210: GoTO 80 

GOTO 110 

END 

FOR I= 1 TO 8 
DRAW I AT X(I)， Y(II) 


NEXT I 


RETURN 

HPLOT 136,0 TO 136,159 
HPLOT 134,0 TO 134,159 
HOME : VTAB 23 

PRINT "Please Press RETURN 
bnRtinuae。。。。。。 


IF AS > CHRS (23) THRN 


3 ATXC3) + 142,7Y(3) 
GET AS 
IF AS“ > 'CHRS (13) THEN 


DRAW 2 AT X(2) + 142,Y(2) 
FOR I = 4 TO 8 
GET AS 
IE AS《 > CHRS (13) THEN 
10. 
DRAW I AT XI) + 142vY(I) 
NEXT 工 
RETURN 
TEXT : HOME 
VIAB 12: PRINT " 
Good ” Bye" 


RETURN 


DATA 100,2,102,124,，38,80 
6，> 


2 DRAW 


7 6 
7 7 


1.18 零件 制图 步骤 的 镇 了 示 = “ 
所 105 


@@O 程 序 说 明 

5 一 165 为 主 程序 ， 当 A $=“A7” 时 ， 显 示 图 1. 16 
当 A 囊 =“X?” 时 ,清除 屏幕 显 示 的 图 形 ; 当 A 岂 =“S? 时 ， 
进入 制图 步骤 演示 状态 ,这 时 依次 按 回 车 键 ,顺序 显示 图 1.17 
各 子 图 形 ， 在 显示 下 个 予 图 时 而 不 氛 掉 原来 显示 的 图 ， 共 分 
七 步 完 成 图 1.16 的 显示 ， 见 图 1.18。 

170 一 200 为 显示 图 1.16 的 子 程 六 。 

210 一 350 为 依次 显示 图 1.17 子 图 形 的 子 程序 。 

远 行程 序 GP 1411 需 要 图 1.17 的 造型 表 。 
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第 五 章 ” 动 态 图 形 的 组 织 


第 四 章 从 数据 结构 的 角度 谈 到 子 静 止 图 面 的 组 织 ， 并 给 
出 了 相应 的 工具 软件 。 本 章 主要 介绍 用 高 级 语言 来 组 织 动态 
图 形 基本 方法 及 有 关 动 态 图 形 程序 的 设计 技巧 。 最 后 ， 探 讨 
-下 从 数据 结构 的 角度 如 何 生成 动态 图 形 。 


第 一 节 动态 图 形 的 显示 原理 


本 节 主 要 介绍 动态 图 形 的 显示 原理 ， 具 体 实 现 ， 高 解析 
度 图 形 的 两 页 及 消除 闪烁 的 换 页 显示 。 

一 、 单 页 屏幕 上 显示 动态 图 形 的 方法 

所 谓 单 页 屏幕 ， 就 是 指 绘图 时 只 在 一 个 高 解析 度 屏幕 上 
进行 ， 或 者 只 使 用 第 一 页 (HGR ), 或 者 只 使 用 第 二 页 
(HGR2 )。 那 么 怎样 在 一 个 固定 的 屏幕 土产 生动 态 图 形 呢 ? 
首先 来 分 析 大 家 都 熟悉 的 例子 一 一 电影 。 

电影 ， 是 通过 把 胶片 上 一 个 个 不 动 的 画面 ， 连 续 地 投射 
到 银 莫 上 面 形成 的 ， 观 众 之 所 以 能 够 看 到 一 个 连续 运动 的 画 
面 ， 是 因为 在 极 短 的 时 间 里 令 第 一 个 画面 消失 ， 而 立即 显示 
出 稍微 运动 了 一 点 的 新 的 画面 > 由 电影 的 形成 过 程 可 以 设想 ， 
如 果 能 在 微机 的 屏幕 上 做 到 令 一 个 图 形 消失 ， 然 后 在 新 的 位 
置 上 以 很 快 的 速度 画 出 这 幅 图 形 或 者 是 变化 了 的 图 形 ， 则 也 
同样 会 使 人 感 党 到 图 形 在 运动 。 

由 上 述 分 析 可 知 ， 产 生动 画 的 关键 就 是 要 不 断 地 控 去 旧 
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图 形 ， 画 出 新 图 形 。 关 于 图 形 显 示 前 面 几 章 已 经 介绍 了 许多 
方法 ， 下 面 主要 讨论 擦 图 问题 。 交互 式 图 形 数据 生成 程序 
G P14o7* 对 图 表 的 动 牵引 ,: 洋 际 上 是 一 个 由 人 控制 的 动 
未 大 来 的 图 表 ， 
1。 使 用 XBDRA 双 指令 扩 图 - 
由 于 XDRAW- 指 令 的 功能 ， 汪 以 图 面 上 的 补 色 来 画 入 
的 。 因 此， 第 一 次 使 用 这 个 指令 画图 时 ， 不 管 其 背景 是 什么 
颜色 ， 都 能 画 出 一 个 与 背景 互 成 补 色 的 图 形 。 但 是 如 果 再 使 
用 该 指令 ， 在 原来 基础 上 重 画图 形 ， 则 因为 它 叉 将 按 着 原来 
的 补 色 画图 ， 故 所 画 之 处 又 还 原 为 原来 背景 颜色 ， 于 是 就 把 
诛 米 的 轿 形 所 掉 : 了 。 例 如 程序 G P1501 可 以 将 一 个 “中 ?” 字 
从 屏幕 一 端 移动 到 另 一 端 。 该 程序 是 一 个 自 带 造型 表 ，. 其 造 
型 表 中 的 造型 为 “中 ” 字 。 
5 REM  GP1501 
7 HGR2， 
0 FORI = 1 ?To 20 
“183，READ 从: POKE 24575 + TI, 入 
20 NEXTmT 
30  POKBE 232,，0: PoKE 233 ， 96 
40，SCALB= 1: ROT= 1 
“50”FOR TI;:= 20.70:259 STEP 2 
， .60  XDRAW 1 AT I,70 
”70 FOR JIJ=1m70100:， NEXxmT IJ 
110 ， XDRAW 1 关 m TI70: 
120 NEXT 
125 “BEND 
130 DRTRAR 1,0,450， 36v,45，45，45 ， 


5 4,63， 63， 127 ， 9， 36 ， 36 ， 54，54 
54,54， 0 


8 
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70 名 为 延 时 语句 ， 动 画 是 由 50 一 120 句 实现 的 。 

2. 设 定 补 色 来 扩 去 图 形 

由 于 XDRAW 指令 只 能 氛 去 以 造型 法 画 出 的 图 形 ， 对 
于 以 点 线 法 画 的 图 就 无 能 为 力 了 。 因 而 ， 如 果 图 形 中 运动 部 
分 是 用 点 线 法 或 两 种 方法 交互 使 用 时 ， 就 只 能 用 “ 设 定 补 色 ” 
的 方法 来 实现 擦 图 。 对 于 单 颜色 的 荧光 屏 ， 只 有 黑 、 白 两 种 
互 为 补 色 的 颜色 ， 使 用 此 法 尤为 方便 。 在 图 形 数据 交互 生成 
程序 G P 1407 中 ， 动 态 牵引 造型 就 是 用 设 定 补 色 来 实现 的 。 
以 后 章节 均 以 设 定 补 色 来 研究 动态 图 东 ， 程 序 G P 1502 给 出 


了 具体 的 使 用 方法 。 ， 
5 REM， GP150. 
10 HGR2 
20 FOR X = 0ToO 190 STEP 4 
25Y = X 


30  HCOLORs 3: GOSUB 110 

50 FOR J = 1 TO 100: NEXT 

60 8HCOLOR= 0: GOSUB 110 

70 NBEXT - 

80 “END 

110 _ HPLOT X， Y ?0 190 - X,Y 

120 “HPLOT “TO 190 - X / 2， 190  - 

YA 人 2  :- 

140 HPLOT TO X,Y 

150 RETURN 

,程序 GP 1502 中 ， 110 一 150 子 程序 是 画 三 角形 的 程序 ， 
其 值 由 X， 立 值 来 确定 。20 一 70 名 实现 这 个 三 角形 由 大 变 小 ， 
然后 由 小 变 大 的 动态 图 形 ， 是 不 断交 替 的 画 与 抹 ，30 句 按 和 白 
色 画 一 个 三 角形 ，60 句 按 黑 色 抹 去 这 个 三 角形 ， 至 于 画图 和 
探 图 时 使 用 的 颜色 并 不 是 一 成 不 变 的 ， 其 赢 色 互 补 关系 见 表 
1.3, 如 对 于 白 屏 幕 画 黑 色 图 形 的 情况 ， 其 使 用 的 颜色 对 上 面 
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的 程序 需要 凑 倒 一 下 顺 厅 。 

二 、 双 页 屏幕 显示 动态 图 形 

上 面 介 绍 了 在 单 页 状态 下 显示 动态 图 形 方法 ， 并 给 出 了 
两 个 简单 的 实例 程序 ,细心 的 操作 者 会 发 现 这 两 们 图 形 是 在 
内 动 状态 下 运动 的 ,通过 在 掠 与 画 的 过 程 中 间 增 加 延 时 时 间 ， 
可 以 减少 闪 动 状态 ,但 是 最 终 还 是 不 能 消除 闵 动 。 这 和 古 因为 

高 级 语言 执行 速度 慢 ， 新 旧 画 面 的 更 塘 速 度 不 够 快 而 造成 的 。 
实际 上 ， 擦 图 与 画图 过 程 完全 相同 ， 因 而 其 占用 的 时 间 都 将 
随 着 图 形 的 复杂 化 而 增长 ， 换 句 话说 ， 不 可 能 在 人 的 视觉 售 
留 范围 内 实现 图 形 的 更 替 ， 其 结果 便 造成 图 形 闪 动 的 感觉 。 
为 了 减轻 图 形 的 闪 动 ， 可 在 画 与 擦 之 间 人 为 增加 停留 时 间 ; 
为 了 消除 图 形 的 闪 动 ， 可 设置 两 个 屏幕 图 形 缓 神 区 ， 同时 在 
两 个 屏幕 上 画图 ， 并 通过 两 页 的 角 半 互 换 ， 而 显示 一 个 高 质 
量 的 动态 图 形 ， 这 种 方法 又 称 为 换 页 图 形 显 示 法 。 

我 们 知道 中 华 学 习 机 的 BASIC 语言 有 两 个 高 解析 度 
屏幕 ,可 以 用 HGR 和 HG R 2 来 设 定 它们 ， 先 在 第 一 页 上 画 
出 一 个 处 于 某 一 位 置 的 图 形 ， 而 后 接着 在 看 不 见 的 第 二 页 上 
画 下 一 个 位 置 的 图 形 ， 然 后 在 二 朋 闻 焰 去 第 一 页 ， 显 示 出 第 
二 页 ， 就 能 够 得 到 一 个 不 具有 闪 动 的 动态 图 形 了 。 前 一 页 隐 
去 后 ,还 要 实现 氛 旧 图 画 新 图 的 过 程 ， 以 备 平 次 换 页 时 使 用 ， 
只 是 这 一 撩 与 画 的 动作 是 在 幕后 进行 的 ， 我 们 看 不 见 ， 也 不 
占用 新 旧 画 面 更 替 的 时 间 ,* 如 此 变更 图 形 显示 的 页 次 ， 就 能 
够 显示 出 一 个 连续 运动 的 图 形 ,但 如 何 实现 换 夏 ， 这 还 得 从 
微机 显示 屏幕 的 几 个 软 开关 及 有 关 地 址 指令 说 起 。 

1. 控制 绘图 页 次 的 软 开 关 

中 华 学 习 机 内 存 中 划 有 4 个 特定 的 显示 区 : 文本 、 低 解 
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析 度 图 形 显示 的 第 一 页 、 第 二 页 :高 解析 度 图 形 显示 的 第 一 
页 和 第 二 页 缓冲 区 。 除 了 用 TEXT GR 、HGR 和 HGR2 
的 BASIC 指令 可 以 方便 地 选用 它们 之 外 , 还 可 以 通过 四 组 
软 开关 选用 它们 来 控制 显示 状态 。 
这 四 组 软 开 关 是 : 
由 POK 玉 ”一 16303，0 文本 型 显示 
POKE 一 16304;， 0 图 形 显示 
@ POKE 一 16300，0 显示 第 一 页 
POKE 一 16299，0 显示 第 二 页 
四 POKE. 一 16298，0 低 解析 度 一 、 二 页 显示 
POKE 一 H6297，0 高 解析 度 二 .二 页 图 形 显示 
全  POKE 一 16302，0 高 、 低 解 煌 度 图 形 全 屏幕 
和 OKE 一 16301，0 图 形 昌 、 文 本 混合 显示 :… 
“由 上 述 的 四 组 软 开 关 ， 可 以 根据 需要 ， 单独 地 或 是 组 合 
起 来 使 用 ， 例 如 选择 软 开 关 的 组 合 为 : 
POKE 一 16304，0 图 形 显 示 
POKE， 一 16297，0 高 解析 度 图 形 
P O 天 所 ”一 16300，0 第 一 页 显示 
POKE 一 16302，0 全 屏幕 显示 
就 能 使 得 高 解析 度 图 形 的 第 一 页 全 屏 被 显示 出 来 而 不 致 于 将 
它 前 昏 所 存 的 图 形 清 除 掉 。 而 下 面 的 软 开 关 组 合 为 
POKE 一 16304，0 图 形 显 示 
POKE 所 ”一 16297，0 高 解析 度 图 形 
POKE 一 16299，0 第 二 页 显示 
就 能 把 高 解析 度 第 二 页 设 成 全 屏幕 ， 而 不 清除 它 前 面 所 存 的 
图 形 。 
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2. 换 页 显示 的 软 开关 控制 

有 了 上 述 软 开关 ， 我 们 就 能 从 一 个 高 解析 度 图 形 页 的 图 
形 显 示 ， 一 下 子 跳 到 另 一 个 图 形 页 的 显示 。 

从 第 一 页 进入 第 二 页 用 POK 忆 一 16299, 0 

从 第 二 页 进入 第 一 页 用 POKE 一 16300, 0 

因为 换 页 显示 的 时 间 极 短 ， 一 般 眼 睛 觉察 不 到 这 一 更 车 
过 程 ， 可 以 生成 卡通 式 的 高 质量 的 动态 图 形 。 

3. 在 看 不 见 的 高 解析 度 图 形 上 画图 

前 述 谈 到 的 图 形 的 交互 生成 一 系列 工具 ， 图 形 均 是 画 在 
所 设 定 的 图 形 页 上 。 当 图 形 画 在 第 一 页 ,实际 上 是 在 $ 2000 一 
$3FEFF 图 形 缓冲 区 送 入 相应 的 数据 。 当 图 形 画 在 第 二 页 
上 ， 实 际 上 是 向 上 $4000 一 $5F FF 的 图 形 缓冲 区 内 填 入 相 
应 的 数据 ， 图 形 第 一 页 与 第 二 页 屏幕 与 相应 的 缓冲 区 一 一 对 
应 ， 至 于 是 第 一 页 还 是 第 二 页 ， 还 要 看 专用 的 内 存 地 址 
$E 6 (十 进 制 为 230) 中 的 数值 而 定 ， 如 果 书 已 6 中 存放 数 
值 为 32 时 ， 所 有 的 图 形 都 将 画 在 第 一 页 内 ;而 如 果 $ 忆 6 中 
存放 的 数值 为 64， 则 所 有 的 图 形 均 画 在 第 二 页 内 。 

掌握 了 地 址 $ 正 6 中 数值 对 高 解析 度 图 形 页 的 制约 关系 ， 
就 可 以 人 为 地 改变 $ 正 6 中 的 数值 ， 从 而 达到 向 某 一 个 高 解 
析 度 图 形 页 画图 的 目的 。 

设 定 第 一 页 和 第 二 页 时 ， 用 下 述 命 令 : 

HGR2:HGR:POKE 一 16302，0 ， 
当 在 第 二 页 画面 上 画图 并 显示 第 一 页 ， 可 用 命令 : 

POKE 一 16300，0 :POKE 230，64 
当 在 第 一 页 画面 上 画图 并 显示 第 二 页 图 形 ， 可 用 命令 : 

POKE 一 16299，0 :POKE 蕊 230，32 
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以 上 控制 画图 页 次 的 命令 ， 可 以 在 立即 状态 下 使 用 ， 也 
可 以 灵活 地 编 在 自己 的 程序 中 。 程 序 G P 1503 可 以 将 中? 字 
不 闪烁 地 从 屏幕 的 左 端 移 到 右 端 .采用 的 是 换 页 图 形 亚 示 。 


个 源 程 序 

5 REM GP1503 

10 HGCR2 : HGR : POKERE - 16302,0 

20 FOR I = 1 TO 20 

30 RERAD A: POKE 24575 + TIT,A 

40 NEXT 

50 BOKBEB 232,0: POKE 233,96 

60 SCALE= 4: ROoT= 1 

70 FOR TI.= 20 TO 250 STEP 2 

80 “BOKE 16300,0: BOKE 230，64 

?30  HCOLOR= 0: DRAW 1 AT I,70 

100 “HCOLOR= 3 : DRAW 1 AT + 2,70 

110  POKE 16299,0: POKE 230,32 

120. RHCOLOR= 0: DRAW 1 AT I,70 

130  HCOLOR= 3: DRRAW 1 AT I + 2,70 

140 NEXT: 

150 “END 

160 DRATRA 1,0,4,0,36,，45,45，45,，5 
4,63,，63， 127 ， 9 ， 36 ， 36， 54， 54,54,5 
4,0 

名 ) 程序 说 明 


10 句 为 设置 高 解析 度 两 页 ， 均 为 全 屏幕 。 
20 一 40 为 将 * 中 及 造 型 表 送 进 24576 为 起 始 处 的 内 存 。 
70 一 140 为 换 页 动态 图 形 显 示 ， 将 “中 ”从 左 端 移动 到 


右 端 。 


80 句 为 显示 第 一 页 并 在 第 二 页 上 画图 。 
110 句 为 显示 第 二 页 并 在 第 一 页 上 男 图 。 
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第 二 节 ”动态 图 形 的 设计 技巧 


计算 机 模拟 包括 两 个 方面 ， 定 量 模拟 和 定性 模拟 ， 前 者 
事先 不 知 变化 后 的 真实 现象 ， 通 过 一 定 的 计算 分 析 ， 把 其 真 
实现 象 用 动态 图 形 给 显示 出 来 ， 比 如 超速 飞机 飞行 时 ， 飞 机 
两 机 的 挠 曲 等 ， 一 个 零件 加 工 现象 的 模拟 等 等 。 后 者 知 其 结 
果 ， 通 过 模拟 ， 可 以 形象 化 反应 其 结果 ， 它 的 典型 应 用 就 是 
在 机 算 机 辅助 教学 方面 ， 通 过 模拟 一 项 课程 实验 ， 如 帕斯卡 
原理 、 物 体 的 自由 落体 运动 、 电 荷 在 袖 场 运动 的 轨迹 等 等 ， 
或 者 是 教科 书 上 不 易 理解 的 概念 、 现 象 ， 通 过 夸张 的 手段 反 
应 其 运动 过 程 ， 使 不 易 理解 的 概念 形象 化 、 直 观 化 。 

本 节 主 要 用 实例 介绍 定性 模拟 的 动态 图 形制 作 方法 及 技 
巧 ， 主 要 包括 两 方面 的 内 容 ， 其 一 、 能 够 用 一 定 函数 关系 描 
述 的 动态 图 形 的 制作 方法 。 其 二 、 不 能 用 一 定 函数 关系 来 描 
述 ， 而 可 以 用 夸张 的 手段 反应 其 内 在 运动 过 程 的 动态 图 形 的 
制作 方法 。 

一 、 单 个 造型 的 任意 方向 移动 

这 里 被 移动 的 造型 为 一 个 小 球 ， 如 果 要 移动 其 它 形状 的 
造型 ， 则 只 要 用 前 述 的 工具 软件 建立 相应 的 造型 来 替换 小 球 
的 造型 ， 也 可 实现 相似 的 运动 。 

1. 作 水 平 运 动 的 造型 

图 形 作 水 平移 动 时 ， 只 要 保持 Y 坐标 值 不 变 ， 改 变 X 坐 
标 。 程 序 G P 1504 可 以 将 小 球 从 左边 等 速 地 移动 到 右边 。 

人 源 程 序 

5 REZEM GP1504 

7 DATA 1,0，,4,0,9,228,63J,30,24， 
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14,45，12，4,，0 
8 FOR I = 1:TO 14 
9 READ A:; BOKE 24575 + ITI,A: NEXT 


10 V = :40 加 

15 HGR2 : ROT= 0: SCALE= 1 

20 KL = 232:K2 = 233: HCOLOR= 3 
30 BOKBEB K1v0: POKE K2,，96 

40 FOR T = 0 TO 6 STEP 0 .3 

20 X= 了 TI _。 

60 “ HCOLOR= 3: GDSUB 200. 

80 1HCOLOR= 0: GO3SUB 150 


90 NEXT  ， 
95 “ HCOLOR= 3: GOSUB 150 
100 .END 


150 DRAW 1 RTX,20 
160 ”RETURN 

200 HPLOT X,9 

230 DRAW 1 AT .Xy20 
250 RETURN 


@) 程序 说 明 

5 一 100 为 主 程序 ， 本 程序 是 一 个 自 珊 造型 表 的 程序 。 
由 7 一 9 名 将 造型 数据 存 到 $ 6000 为 起 始 处 。40 一 90 句 为 实 
现 造型 的 移动 ， 一 画 一 抹 ， 即 新 旧 画 面 更 替 ， 还 可 必 留 下 小 ， 
球 运动 的 轨迹 。 50 句 为 小 球 作 等 速 移动 的 函数 式 子 。 

笨 入 并 运行 程序 4 P 1504 可 以 看 出 ,造型 的 移动 有 闪 动 ， 
并 很 快 地 从 左 端 移 动 到 右 端 。 人 为 地 在 新 旧 画 面 更 蔡 时 加 延 
时 语句 ， 比 如 加 一 条 : 

70 FOR J=1 TO 1l00:NEXT 
则 可 以 减少 闪 动 。 程 序 G P 1505 采 用 换 页 显示 ， 完 全 可 以 避 
免 图 形 的 闪 动 。 


心 必 


及 EM GP1505 


DATA Lv,0,4,0,9， 228， 63，30,54， 


14,45， 12， 4,0 


HCOLOR= 3 


POKE 230764 


200 
150 
POKBE 230,32 
200 
150 


J150 


20 


8 FOR I = 1 TO 14 

9 “READ A: POKE 24575 + TI, 和 A: NEXT 
10 V = 40 

15 HGR2 : HGR : POKE 

17 SCRALE=- 1 

20 K1L = 232:K2 = 233: 

30 ，POKE KX1,0: POKE K2， 96 
35 8 = 0.T*T 

40 FORT = 0 TO 6 STEB 0 .1 
50 X=VNW T， 

55 POKE - 16300,0: 

60 “RHCOLOR= 0: GO3SUB 

65 “ HCOLOR= 3: GOSUB 

70 BOKE .- 16299,0: 

75 “ HCOLOR= 0: GOSUB 

80 “HHCOLOR= 3: GO3SUB 

90 NEXT 

95 “HHCOLOR= 3: GOSUB 

100 END 

150 DRAW 1 AT X + S， 

60 HPLOT X,0 

170 RETURN 

200 DRRAW 1 AT .X,20 

230 RETURN 

2. 造型 的 垂直 运动 


在 新 介 画 面 更 替 时 ， 只 要 固定 又 坐标， 改变 Y 坐标 值 ， 
就 能 实现 造型 的 垂直 运动 。 程 序 G P 1506 可 以 模拟 小 球 作 垂 
直下 热 运 动 。 

中 源 程序 


5 
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REM GPR1208 


7 DRATA 1,0,4,0,9,228,63,30,54， 
14,45,12,4，0 

8 FOR I= 1 TO 14 

9 REBAD A: POKE 24575 + I,A: NEXT 


15 HGR2 : SCRALE= 1: ROT= 0 
20 K1 = 232:K2 = 233: HCOLOR= 3 
30  POKE K1L,0: POKE K2,96 
40 FORT = 0T0O 6 STEP 0.3 
50yY= 4.9* 了 xxT 

60  HCoLOR=-3: GO8SUB 200 
70，FOR TI < 1.70.400: NEXT 
8380。 HCOLOR= 0: GoSUB 150 

90 NEXm ， 
95- -HCoELOR=.3: GOSUB 150 
100 END 

150 DRRAW 1 AT 20,Y 

160 “RETURN 

200 HPLOT 0，Y: 

230 DRAW 1 AT 20,Y 

240 “RETURN 


@ 程序 说 明 

5 一 100 为 主 程序 ， 类 似 于 上 面 的 程序 ， 不 同 的 是 50 句 ， 
该 句 为 造型 作 自由 落体 的 函数 式 子 。 

如 果 用 下 面 的 语句 替换 程序 中 相应 的 语句 ， 则 可 慢 速 演 
示 小 球 的 垂直 上 抛 运动 。， 

40 FOR T=6 TO 0 STEP 一 0.3 

3. 造型 作 抛物 线 移 动 

如 果 小 球 不 作 牌 直 运 动 ， 而 是 将 小 球 水 平 投 搓 ， 在 重力 
作用 下 ， 小 球 的 运动 轨迹 为 抛物 线 ， 这 样 的 程序 如 何 设 计 。 

@O 构造 数学 模型 

按照 物理 学 的 知识 ， 水 平 投掷 运动 的 小 球 ， 在 重力 的 作 
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用 下 ， 其 轨迹 按 下 列 公式 确定 : 
X 一 X0 十 vt 


一 上 
YY 三 yo 二 让 


四 源 程 序 〈( 见 GP 1507) 


5 REM SP1507 
6 ”DATA ，1,0,8,0,0，0,0,0 
7 DRATA 9,228;63yv30,54,14,，45，1 


8 = TO 18 
3 READ A: POKBE 24575 + TI, 有 A: NEXT 


19 8RGR2 :V = 50 

20 KL = 232:K2 = 233 

25 RNRCOLOR= 3: SCALE= 1 

30  POKE K1L,0: BOKE K2,96 
40 FORT = 0mTO5STEP 0.2 
50X=VxrTIY=4.9w 了 * 了 
60 “ HCOLOR= 3: GOSUB 200 

了 30 FOR J= 1 T0.200: NEXT 
80  HCOLOR= 0: GOSUB 150 


90 NEXT 
95 “HRCOLOR= .3: GO8UB .150 
100 “END 


150 DRRAW 1 AT X + 10,Y + 10 
170 ”RETURN 

200 HPLOT X + 10,Y + 10 

230 DRAW 1 AT X+ 10,Y + 10 
260 RETURN 


图 程序 说 明 
5 一 100 句 为 主 程序 ，5 一 9 句 将 小 球 造型 表 存 入 $ 6000 为 
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起 始 处 ，40 一 90 名 为 新 旧 画 面 的 更 替 ， 小 球 运动 的 轨迹 由 50 


们 来 控制 ， 


70 句 为 新 旧 画 面 更 替 时 的 延 时 循环 。 


如 果 在 屏幕 中 增加 辅助 信息 ， 如 图 1. 19 则 可 以 模拟 带 正 
电 的 质点 受 磁场 力作 用 而 发 生 偏 移 的 定性 模拟 ， 相 应 的 程序 
为 GP 1508。 | 


++++++++++++++ + 


图 1.19 

\D 源 程序 

5 REM cpi508 

6 DRATRAR 3,0,8,0,18,0,26,0 

7 DRATA 9,228,63,30,54,14，45，12， 
4v0 

8 DRTRA 45,45,221,35,52,54,54，0， 
255,45,45,5,0 

9 FOR I = 170 31 

J0 READ A: BOKE 24575 + TI,，A: NEXT 

15 HGR2 : SCREE= 1 

20 XI = 232:K2 = 233: HCOLOR= 3 

30  POKE K1,02 “POKE:K2,96 

32 “HPLOT 3,10 ?0 260,10 

3 HPLOT 0,160 TD 260,160 
34 FOR TI = 1 TO 260 STEP 10 
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DRAW 2 RAT 3 4 TIv,6: NEXT 


1 TO 260 STEP 10: 


DRAW 3 RAT 4 + TI,165: NEXT 


0 TO 4.2 STER 0.2 
TI:Y= 4.9 交 下 yw 了 
3: GoSUB 200 

LTO 400: NEXT 

0: GOSUB 150 


3: GOSUB 150 


RTX,Y + 80 


HBEOP X,Y + 80 


\、 .36 
37 FOR TI = 
38 
40 FOR T.= 
50 X - 65 
50 ”HCOLOR= 
65 FOR I 
90 THCOLOR= 
90 ”NEXT- 
05 ”8HCOLOR= 
100 ”END 
150 :DRAW 1 
160 RETURN 
200 
230 DRAW 1 
240 “RETURN 
@ 程序 说 明 


5 一 100 为 主 程序 ,9 一 10 将 三 个 造型 的 造型 表 存 入 内 存 和 
6000 为 起 始 东 ;. 第 一 个 造型 为 小 球 ， 第 二 个 造型 为 “十 网 第 


三 个 造型 为 “* ”20 一 38 名 为 画图 1. 19， 其 它 类 似 于 上 面 的 


程序 说 明 。 
4。 模拟 球 的 弹跳 运动 


如 何 模拟 一 个 小 球 从 一 定 高 度 掉 到 地 面 后 的 运动 。 


RAT XiyY + 80 


中 构造 数学 模型 


由 物理 学 可 知 ， 小 球 从 某 一 高 度 掉 到 光滑 地 面 上 的 运动 


为 一 阻尼 运动 ， 其 轨迹 可 以 用 下 面 式 子 : 


Y=Hk SIN (CX+D) 冰 EXP (一 民 冰 X) 


来 表示 。 
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@ 源 程序 〈( 见 GCP1509) 


5 REM  GP1509 

6 DRATRA 1,0,4,0,9,228,63,30,54， 
14,45,12,4,0 

8 FOR I = 1 To 14 

9 READ A: BOKE: 24575 + I, 和 人 

10 NEXT 

15 PIT = 3.14159:W = BI / 40:D = 9 
0w*w PI:/186 

17H= 140:K = 0.01. 

20. HCOLOR= :3: SCRALE= 1 

30  POKE 232,0:, POKE 233v96 

40 HGR2 ， 

45 “HPLOT 10,160 TO 276,160 

50， FOR X = 0 TO 270 3TEP 2 

60Y=HA SIN (WA X+ D) *w EXP 
( -KKA X) 

70Y= 160 - RMBS (Y) - 3 

80 ”HHCOLOR= 3: GO9SUB 200 

90 FOR J = 1 TO 100: NEXT 

100  HCOLOR= 0: GO08UB 250 


110 ”NEXT . 
120 'HCOLOR= 3: GOSUB 250 
140 ”END 


200 DRAW 1 AT XvY. 
205 HPLOY. XvY 

210 RETURN 

250 DRAW 1 RAT X,Y 
Z60 RETURN 


@ 程序 说 明 
5 一 140 为 主 程序 ， 取 衰减 系数 人 = 0.01, 6 一 10 句 将 小 球 
的 造型 数据 存 入 $ 6000 为 起 始 处 ,45 句 画 一 水 平 线 表 示 地 面 ， 
f0 一 110 句 为 模拟 小 球 的 弹跳 运动 ，60 句 求 小 球 弹 跳 的 融 度 ， 
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70 句 实现 坐标 转换 , 以 地 面 (Y= 160 处 ) 向 上 为 立轴 方向 。 

二 、 多 个 造型 的 同时 移动 

上 面 介绍 的 一 些 例 子 ， 只 是 一 个 造型 的 移动 、 在 计算 机 
定性 模拟 中 ， 或 者 是 动画 片 的 制作 ， 往 往 是 多 个 局 部 图 形 按 
各 自 规 各 在 屏 疾 上 运动 。 这 类 程序 如 何 设计 ? 

.多 个 造型 同时 运动 的 原理 

大 家 知道 ， 个 造型 的 动画 就 晶 在 一 个 位 置 上 显示 它 ， 
然后 在 新 的 位 置 上 显示 它 ， 同 时 擦 去 老 位 置 上 的 造型 ， 给 人 
感 党 到 这 个 造型 在 运动 。 要 想 让 多 个 造型 同时 按 各 自 规律 运 
动 ， 与 单个 造型 运动 具有 相同 的 原理 ， 只 是 在 新 老 图 面 更 替 
时 ， 均 是 多 个 造型 ， 即 在 一 全 位 置 上 画 出 多 个 造型 ，, 然 后 擦 
除 它 并 在 新 的 位 置 上 显示 同样 多 个 造型 ， 就 会 获得 多 个 造型 
在 同时 运动 。 

2. 按照 各 自 规律 运动 的 多 个 造型 

向 下 斜 抛 一 个 物体 ， 要 求 在 一 个 屏幕 上 同时 显示 三 个 造 
型 的 运动 ， 物 体 的 运动 及 在 勾 ，Y 轴 上 的 投影 运动 ， 并 分 别 
留 下 相应 的 轨迹 ， 可 采用 单 页 动态 图 形 显示 方法 实现 。 

@ 构造 数学 模型 

由 图 1.20 可 知 ， 向 下 斜 抛 一 个 物 笨 的 轨迹 为 一 抛物 线 ， 
在 X 轴 上 投影 运动 为 等 速 运动 ， 在 Y 轴 上 为 垂直 下 抛 的 加 速 
运动 ， 其 合成 运动 由 下 式 参 数 方程 给 出 ; 

X=XI 二 (vcos0h)t 


Y 三 Yo+ (vsing)t+ 二 BE 
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1 2 


人 5 
20 
25 
30 
. 帮 0 二 


乱 0 X 


60 
70 


图 1.20 斜 殷 运动 
@ 源 程 序 ( 见 GP1510) 


， 
REM GP1510 

DATA 3,0,8,0， 8,0， 22， 0 
DATA 9,228,63,30,54,14,45,1 


DATA 45,63,47,0,36,54,54,，38 


FOR TI， =; 工 0. 27 
READ A: POKE 24575 + I,A: NEXT 


TH = 30 * 3,14159 /180:V0 = 5 
0. 
HGR2 
K1 = 2322:K2: = 233 
HCoLOR= 3: SCALE= 1 
POKE K1,0: POKE K2,96 
:POR T = 0 70. 4:39EP 0.1 
104+VOx CoS (TH) * 
TO +VOw SIN (TH) * 了 
9 * 人-* 了 
HCOLOR= 3: GO3UB 200 
FOR J = 1 TO 200: NEXT 


T:Y = 
1 4 
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.80  HCOLOR= 0: GOSUB 150 

90 NEXT 

95 “ HCOLOR= 3: GOSUB 150 

100 END 

150 DRRAW 1 ATI-X,Y 

155 DRAW 2 AT X,10 

160 DRAW 3 RAT 10,Y 

170  _ RETURN 和 

200 ” HPLOT X,Y 

210 HPLOT X,8 

220 HPLOT 8,Y 

230 DRRAW 1 AT X,Y 

240 DRAW 2 RAT X,10 

250 DRAW 3 AT 10,Y 

260 RETURN - 

加 程序 说 明 

5 一 100 句 为 主 程序 ， 9 一 10 名 将 3 个 造型 的 造型 表 存 
入 $6000 为 起 始 处 ， 40 一 90 句 为 动态 图 形 的 描述 语句 ， 50 句 
为 函数 式 子 , 用 来 确定 被 移动 对 象 的 轨迹 , 10 句 与 80 名 为 更 替 
画面 ，70 句 为 延 时 循环 。 

150 一 170 子 程序 为 氛 图 模块 ， 一 号 造型 为 小 球 ， 作 抛物 
线 运 动 ， 二 号 造型 为 小 球 在 X 轴 上 投影 运动 ， 三 号 造型 为 小 
球 在 Y 轴 的 投影 运动 。 

200 一 260 子 程序 为 画图 模块 ,200 句 留 下 一 号 造型 的 运动 
轨迹 ，210 句 留 下 二 号 造型 的 运动 轨迹 ,220 名 留 下 三 号 造型 
的 运动 轨迹 。 

3 个 造型 的 起 点 均 为 各 自 造型 的 几何 中 心 。 

3. 模拟 水 压 机 原理 (帕斯卡 原理 ) 

模拟 水 压 机 动作 原理 ， 要 求 能 够 显示 压力 及 活塞 受 压 状 
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念 及 分 布 ， 见 图 1.21。 


1.21 水 压 栅 原 逻 示意 图 
1. 油 仙 : 2. 大 活塞 ; 3. 水 活塞 ， 4.5: 压力 ; 6， 童 牺 。 


中 构造 数学 模型 
大 家 知道 水 压 机 的 两 个 活塞 的 行程 与 其 面积 成 反比 关 
系 ， 即 ; 1 


95 二 =52 .12 
= 1 
1 d 
写 = (于 ) 
若 取 dz /di = 2，,， 则 小 活塞 下 降 4 个 坐标 单位 ， 大 活塞 上 升 一 
个 坐标 单位 。 
四 .四 表 建 立 。 - 
由 图 1. 21 为 了 编程 方便 ， 按 顺 序 全 部 用 造型 表 来 完成 ， 
第 1 个 造型 表示 油 答 , 第 2 个 造型 表示 大 活塞 ,， :第 3 个 造型 
表示 小 活塞 ， 第 4 和 第 5 个 造型 表示 压力， 第 6 个 造 理 表 示 
字符 p， 第 7 个 造型 表示 重 物 ， 造 型 表 见 GP1511-1， 除 了 
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油 仙 之 外 ， 在 模拟 水 压 机 原理 过 程 中 , 同时 运动 有 6 个 造型 。 
在 完成 各 造型 之 后 ， 由 图 型 数据 交互 生成 工具 建立 图 1. 21， 
并 确定 各 造型 初始 位 置 坐标 。 

图 源 程序 ( 见 GP1511) 


5 REM  -GP1511 


7 
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PRINT CIIRS (4)3"BLORD GP1L2511- 


,AS6000" 


DIM Y1(20),Y2(20) 


POKE 232,0: ROKE 233,986 

HGR : POKE  - 16302，0 

HGR2 : SCALE= ,1 

HCOLOR= 3: GOSUB 700 

BOKE 230,32: GO0SUB 650 

POXKBE 230,64: GOSUB 850 

FOR 【= 1 TQ. 1 上 2- 

了 了 OKS TI6360， 0: POKE 230， 64 


HCOLOR= 0:J = 1 

GOSUB 800: GOSUB 870 

HCOLOR= 3:J = IT + 1 

GOSUB 800: GOSUB 870 

POKBE  - 16299,0: POKE 230,32 


HCOLOR= 0:J = 工 

GOSUB 800: GOSUB 870 

HCOLOR= 3:J:= I + 1 

GOSUB 800: GoOSUB 870 

NEXm 1I 

HCOLOR= 0: POKE 230,32: GOSUB 
870 

POKE 230,64: GOSUB 870 

FOR I = 1 TO 50: NEXT I 

FOR TI = 14 TO 2 3STEP -1 


POKE  '- 16300,0 

POKE 230,，64 
HCOLOR= 0:J = 工 
GOSUB 800: GOSUB 860 
HCOLOR= 3:J = 工 - 工 
COSUB 800: GOSUB 860 


POKER -~- 16299,0: POKE 230,32 


HCOLOR= 0:J = 1I 

GOSUB 800: GOSUB 860 
HCOLOR= 3:J = I - 1 
GOSUB 800: GOSUB 860 
NEXT I 

HCOLOR= 0: POKE 230, 了 2: GoOSUB 
860 
POKE 230,64: GOSUB 860 
GoTO 200 

END 

DRAW 1 AT 80,80 


DRRAW 2 RAT 81,Y1(J) 

DRAW 3 AT 172,Y2(J) 

DRRAW 4 RAT 84,Y1(JI) + 45: DRRAW 
5 AT 173,Y2(JI) + 56 
DRRAW 6 RAT 96,Y1(I) + 54 
DRAW 6 AT 178,Y2(J) + 66 
RETURN 

DRAW 7 RAT 92,Y1L1(I) - 13 
RETURN 

DRAW 7 AT 173,Y2(J) - 11 
RETURN 
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由 程序 说 明 

5 一 640 句 为 主 程序 ， 设置 两 个 数组 1 I) 与 Y2(I) 分 别 
存放 大 活塞 及 小 活塞 移动 路 径 ， 该 路 径 由 60 句 实现 ， 即 小 活 
塞 下 降 4 个 坐标 单位 ， 大 活塞 上 升 一 个 坐标 单位 。 70 与 90 句 
在 两 个 图 形 页 上 画 出 油缸 ，200 一 370 旬 为 模拟 小 活塞 上 承受 
的 重 物 向 下 移动 ， 大 活塞 向 上 移动 ，380 一 600 句 为 模拟 大 活 
塞 上 承受 重 物 向 下 移动 ,小 活塞 向 上 移动 ， 要 停止 程序 运动 ， 
请 按 复位 键 。 

700 一 740 子 程序 为 计算 大 小 活塞 的 移动 坐标 ， 并 分 别 存 
入 YI1(I) 及 Y2(I) 数 组 中 。 

800 一 850 子 程序 为 画 大 小 活塞 及 压力 模块 。 

860 一 865 子 程序 为 在 大 活塞 上 画 出 重 物 模 块 。 

870 一 880 子 程序 为 在 小 活塞 上 画 出 重 物 模块 。 


GP1511-~1 
*6000 .6250 


0000- 0A 017 20 00 00 01 57 01 
6008- A2 01 C7 01 DB 01 ERA 01 
6010- FF FF FF FF REF FF FRF KRF 
6018- FF FF FF FRR FF FRR FF 00 
6020- 3F 37 36 36 36 36 36 36 
6028- 36 36 36 36 36 36 36 36 
6030- 36 36 36 36 36 36 36 36 
6038- 36 36 36 36 36 36 36 36 
6040- 36 36 36 36 36 2D 2D 2D 
6048- 2D 2D 2D 2D 2D 2?2D 2D 2D 
6050- 2D 2D 2D 2D 2D 2D 2D 2D 
6058- 2D 2D 2D 2D 2D ?2D 2D 2D 
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6060- 
6068- 
6070- 
6078- 、 
6080-~ 
6088- 
6090- 
6098- 
60RA0O- 
60A8- 
60B0- 
608B8- 
60C0-. 
60C8- 
60D0- 
60D8- 
60E0- 
60E8- 
60F0- 
60F8- 
6100- 
6108- 
6110- 
6118- 
6120- 
6128- 
6130- 
6138- 
6140- 
8148- 
6150- 
6158- 
6160- 
6168- 


2 
2D 
2D 
2D 
24 
24 
24 
24 
24 
3F 


36 


36 
36 
1 也 
了 3E 
了 PR 


24. 
24. 


24 


24 


26 


36， 


36: 
2D 
2D 
2D 
24 
24 
24 
JPF 
3F 
36 
36 


36 : 


2D 
2D 


2D 
2D 
24 
24 
24 
24 
DR 
36 
36 
36 
36 
了 B 


3F 


3F 


24. 


24 
2 


24 


36 
36 
36 
2D 


2D 


24 


-24 


24 
3F 
3F 
3F 


-36 
36 


36 


2 
2D 
2D 
2D 
24 
24 
24 


DB 
3J6 
36 
36 
36 
3 
3F 
3F 
24 
24 
24 
24 
36 
36 
36 


27D 


2D 


2 
24 


24 
3F 
3JF 
37 
36 
36 
36 


2D 
2D 
2D 
24 
24 
24 
24 


-24 


DB 
36 
36 
36 
也 
3BR 
了 3F 
27 
24 


24 
24: 
07 
36 


36 
36 
2D 


2D 


24 
24 
24 
3F 
3F 
00 
36 
36 
36 


2D 
2D 
2D 
24 
24 
24 
24 
24 
上 B 
36 
36 
36 
也 


'3 世 


3 了 
24. 
24 
24 


24 
00. 


36 


36 
2D 


2D 
2D 


2 


24 
24 
3F 


-3F 
33 


36 
3 
36 
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6170- 36 36 2D 2D 2D 2D 2D 2D 
6178- 2D 2D 25 24 24 24 24 24 
6180- 24 24 24 24 24 24 24 24 
6188- 24 24 24 24 24 24 24 24 
06190- 24 24 24 24 24 24 3F 3F 
6198- 3F 3F 3E 3F 3F 3F 37 36 
61A0- 36 00 26 F4 2D 95 1B 4C 
61A8- 49 26 24 1E 2D 4D 25 36. 
61B0- 26 2C 4D 09 F4 3D 37 66 
618B88- 09 09 24 3E 2D 37 66 49 
61C0- 21 34 2F 3D 36 06 00 21 
6l1C8- 3E 2D 37 66 49 21 34 2B 
61D0- 3D 36 64 49 21 3E 2D 37 
61D8- 76 01 00 24 24 24 2E 0C 
61E0- 75 36 1B 27 BB 4 及 1I1 49 
61E8- 01 00 36 36 36 2E 2D 2D 
61F0- 2D 2D 2D 2D 24 24 24 24 
61F8- 24 3C 3BF 3F 3F. 3F 3BF 3F' 
6200- 36. 36 0c" 0oc 0c 2C 2D FS5 
6208- 1B 1lB 1E 1EB 1lE 1B 76 0C 
6210-- 0C. 0C 0c 0c 0oc 0c 0c 2cC 
6218- 2D 1E F2 1EB 1E 1E 1E 1E 
6220- 1lE 1BE 2EE 65 0C 0C 0C 0c 
6228- 0C 0C 94 52 1E 1BE 1E 4 已 
6230--C9 24 24 24 24 24 C4 18 
6238- D8 DB DB 20 24. 64 2D 0B 
6240- 36 F6 1C-94 3 4F 0D 4D 
6248- 49 01 00 00 00 00 00 00 
6250- 49 


三 、 按 预定 路 径 移 动 造 型 

上 面 介绍 了 单个 造型 以 及 多 个 造型 的 运动 ， 其 运动 路 径 
均 能 用 函数 式 子 来 描述 ， 在 计算 机 辅助 教学 中 ， 为 了 形象 、 
直观 ， 把 知识 用 其 过 程 来 描述 ， 如 减速 器 拆 装 实验 模拟 ， 电 
子 、 电 流 走 向 的 模拟 ， 液 压 传 动 阀 的 动作 模拟 。 对 这 样 一 类 
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过 程 的 描述 ， 常 需要 造型 按 预 定 的 路 径 来 移动 ， 往 往 这 样 的 
路 径 用 函数 式 子 描述 较 困 难 或 不 能 用 函数 式 子 来 描述 ， 但 可 
以 按 预定 要 求 ， 通 过 方 格 纸 或 工具 软件 找 出 路 径 的 一 系列 坐 
标 。 下 面 就 来 谈 谈 这 方面 动态 图 形 的 制作 方法 。 

1， 一 般 步 

GD 运动 过 程 的 描述 

根据 被 模拟 对 象 ， 运 用 有 关 专 业 知 识 来 刻 划 其 功 作 过 程 
及 相应 的 要 求 ， 有 目的 、 要 求 、 具 体内 容 和 实施 办 法 等 。 

@) 图 形 的 制作 

根据 第 一 步 确定 制作 的 图 面 ， 对 静 正 的 画面 ， 可 以 用 节 
点 法 来 完成 ， 对 运动 对 象 可 以 用 造型 来 实现 。 并 由 工具 软件 
生成 相应 的 图 面 及 造型 表 。 

图 动画 位 置 的 确定 

由 动作 过 程 ， 在 方 格 纸 上 画 出 其 相应 的 轨迹 ， 每 个 需要 
运动 的 造型 都 有 一 个 运动 的 轨迹 ， 轨 迹 坐 标 直接 在 方 格 纸 上 
截取 。 

根据 动作 过 程 ， 由 图 形 数据 交互 生成 工具 GP 1407。 每 
一 个 运动 的 造型 ， 沿 着 轨迹 复制 一 幅 图 形 。 

图 程序 设计 

根据 动作 过 程 及 相应 要 求 ， 针 对 已 经 建立 的 图 形 、 图 表 
和 动画 路 径 坐标 ， 写 出 执行 细节 或 画 画 出 框图 ， 完 成 编程 及 调 
试 工作 。 

下 面 介绍 一 下 实例 ， 看 看 如 何 设计 这 样 一 类 的 程序 。 

2， 带 图 形 汉 字 的 通用 演示 程序 

下 面 以 通用 造型 软件 包 的 引导 程序 为 例 ， 见 图 1.22， 介 
绍 带 虱 形 汉字 的 通用 演示 程序 设计 。 
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1.22 带 汉 字 的 演示 屏幕 

全 过 程 描述 

图 1.22 为 通用 造型 软件 包 的 引导 程序 最 终 显示 的 画面 ， 
按照 什么 样 的 过 程 来 动态 表演 ， 最 终 显 示 图 1,2!， 不 同 的 人 
会 设计 不 同 的 过 程 描述 ， 这 里 只 是 其 中 的 一 种 。 首 先 随机 旋 
转动 态 演示 通 、 用 、 造 、 型 、 软 、 件 和 包 ， 依 次 在 屏幕 中 间 
位 置 累加 一 行 “通用 造型 软件 包 风 其 次 由 下 往 上 移动 ^1988. 
2.20. 第 2.0 版 ”到 其 屏幕 的 适当 位 置 ， 最 后 矩形 扩展 并 留 
下 相应 的 矩形 。 图 1s22 为 最 终 显示 的 图 形 ， 在 运动 过 程 中 ， 
要 求 按 任意 键 立 即 结束 或 进入 主 菜单 程序 。 

@ 图 形制 作 

见 图 1.22 因 为 每 个 汉字 及 字符 均 需 要 动态 演示 ， 因 此 ， 
全 部 用 造型 ， 造 型 的 顺序 为 ， 通 、 用 、 造 、 型 、 软 、 件 . 包 、 
第 、 版 、2.0 和 1988 . 2.20。 汉 字 造 型 以 左上 角 为 造型 起 点 ， 
字符 造型 以 左下 角 为 造型 起 点 。 

@ 动画 轨迹 坐标 的 确定 

因为 动作 过 程 比 较 简单 ， 只 要 知道 各 造型 移动 的 最 终 位 
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置 坐标 ， 由 此 确定 每 个 造型 的 笠 环 体 ， 很 方便 地 达到 过 程 
描述 的 要 求 ， 各 造型 的 最 终 坐 标 由 图 形 数据 交互 生成 工具 
GP 1407 生 成 图 1.22。 相 应 的 数据 见 GP 1512 程 序 DATA 
语句 。 

由 程序 设计 

由 演示 程序 的 过 程 描述 及 要 求 ， 针 对 已 经 建立 的 图 表 及 
图 1.22 各 造型 的 位 置 坐 标 ， 完 成 程序 设计 。 

@) 源 程 序 


5 REM GBP1512 
10 DRATA 1,70,50,3,2,90v,50,3,3， 
109,50,3,4,128,50,3,5,146,50 
/3,6,166,50,3,7， 186,50,3,8，,1 
“11,73,3v,9,146,73,3,I1,127,82 
/3,10,109,102,3 
20 DIM.RAS%(20),B%(20) ,cs%(20),DS%(2 
0 ) 
30 FOR TI = 1 TO 1L1 
40 READ RS(I)，,B&(T) ,CS(I)，,D%(I) 
50 NEXT 
60  POKE 232,0: BOKE 233,96 
70 SCALE= 1: RoT= 0 
80 HGR : POKE  - 16302,0 
90 ”HGR2 
100 FORI = 1 To 7 
110 FORJ= 1 To 7 
.120  RoT= 7 * J: GOSUB 430 
"130 NEXT J 
140  HCOLOR= 3: RoT=- 0: DRAW AS(I 
) AT B%(I) ,Cs%(I) 
150 NEXT 
160 BOKE - 16300,0: POKE 230,64 
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久 到 60 大 


GaSUB 390 
POKE  - 16299,0: POKE 230,32 


GOSUB 390 

= 4 

FOR I = 0 .8O 50: STEP S 

POKE  - 16300,0: BOKE 230,64 


HCOLOR= 0: GOSUB 310 

HCOLOR= 3: GOSUB 350 

GOSUB 490 

POKER  - 16299,0: POKE 230,332 


ICOLOR= 0:- G9SUB: 310 


HCOLOR= 3: -GOSUB 350 


NEXT 工 


BO03UB >10 


END 

FOR J = 8 TO 11 

DRAW AS%(J) AT B%(J)，C5(J) + 
50 -~ 工 

N 卫 欠 工 

RETIURN 

FOR J = 8 TO 11 

DRAW AS(J) AT BS(J)，C%(J) 上 + 
50 -II-S 

NEXT 

RETITURN 

FOR I = 1 TO /7 


DRAW AM%(I) AT BS%(I)，CsS(I) 


NEXT 
RETURN 


(1 ) 
HCOLOR= 3: DRRAW AS(I) AT XI 


RND (1):Y = 160 +* RND 


450 ”GOSUB 490 
460  HCOLOR= 0: DRRAW Rs%(I) AT X,Y 


470 RETURN 

480 DRAW AS(I) AT BS%(I)，C%(I) + 
50 ， 

490 P = PEEBK (49152): IF P > 128 
THEN NOME : TEXT : GET AS: 

END 

500 FEOKE 49168,0: RETURN 

510  HCOLOR= 3:. POKE  -:16300,0 

515 FOR I = 1 To 40 STEBP 2 

520 HPLOT 67:- TI,40 - ITO 202 + 
TI, 40 -II TO 202 + I, ll0 + I TO 
67 - I,110 + I TO 67 - TI,40 - 
I 

530 NEXT 

540 “RETURN 


@) 程序 说 明 

5 一 305 句 为 主 程序 ，10 一 50 句 将 图 1.22 各 造型 位 置 坐标 
存 入 数组 A%(I),B%(I)C%(L)D%(I) 中 ，100 一 150 
句 为 将 通 、 用 、 造 、 型 、 软 、 件 和 包 随 机 旋转 动态 组 合 一 行 
“通用 造型 软件 包 ?,160 一 190 句 为 分 别 在 第 二 页 和 第 一 页 画 出 
此 行 。200 一 290 句 为 将 1988. 2.20. 第 2.0 版 由 下 同上 移动 
到 屏幕 的 适合 位 置 ，300 句 为 将 矩形 由 小 到 大 ,并 留 下 相应 的 
矩 落 。 

310 一 340 和 350 一 380 子 程序 分 别 在 不 同位 置 画 或 抹 
41988. 2.20. 第 2.0 版 >”, 以 达到 换 页 显示 的 目的 。 

390 一 420 句 为 画 “ 通 用 造型 软件 包 ” 的 也 程序 。 

490 一 500 子 程序 为 键盘 接收 及 控制 语句 ， 当 按 任 意 键 程 
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序 就 结束 , 如 果 将 END 改 为 PRINT CHR 和 (4); “RUN 
MENL ” 则 按 任意 键 可 运行 名 为 MENTU 的 程序 。 

510 一 540 子 程序 为 画 一 系列 由 小 到 大 的 和 托 形 。 

上 面 设 计 的 程序 为 一 个 通用 的 演示 程序 ， 只 要 用 相应 的 
造型 殖 换 掉 图 1.22 中 的 各 个 造型 ,就 能 得 到 同样 的 演示 效果 ， 
比如 用 3.0 替 换 第 11 个 造型 2.0， 用 1989.8 替 换 第 10 个 造型 
1988. 2.20， 则 由 下 向 上 移动 “1989。8 .第 3.0 版 ” 

远 行 GP 1512 需 要 图 1.22 汉 字 及 字符 的 造型 表 。 

四 、' 需 要 变化 的 动态 图 形 设计 

在 计算 机 定性 模拟 中 ， 常 用 变化 的 图 形 来 反映 运动 的 变 
化 过 程 ， 如 一 个 杠杆 式 物 体 在 受 力 状态 下 变形 ， 机 构 动 态 图 
形 或 者 小 孩子 走路 。 用 高 级 语言 设计 这 一 类 动态 图 形 一 般 有 
三 种 方法 ， 其 一 、 用 节点 法 来 实现 ， 即 所 有 变化 的 动态 图 形 
全 用 HPLOT 语句 编写 相应 的 程序 。 主 要 适用 于 图 形 简单 、 
且 容 易 用 函数 关系 来 表达 的 变化 图 形 ， 其 二 、 用 造型 法 来 实 
现 ， 即 制备 动画 过 程 中 的 一 系列 造型 ， 用 软件 来 控制 不 同时 
刻 显示 不 同 的 造型 ， 使 人 感觉 图 形 在 变化 ， 其 三 、 用 点 线 法 
与 造型 法 组 合 来 实现 ， 即 把 那些 计算 量 小 ， 容 易 用 函数 关系 
来 表达 且 又 要 求 变化 的 图 形 用 点 线 法 来 实现 ， 而 把 那些 不 规 
则 ， 计 算 量 大 的 且 要 求 不 变 的 图 形 用 造型 来 实现 ， 这 种 方法 
适用 于 一 般 情 况 下 变化 的 动态 图 形 。 关 于 图 形 和 造型 表 生 成 
可 用 前 面 几 章 介绍 的 一 系列 工具 程序 。 下 面 我 们 用 简单 几 个 
实例 来 说 明 这 类 动态 图 形 的 制作 。 

1. 旋转 ， 逐 渐变 大 的 小 旗 的 移动 

小 旗 的 计算 量 比较 简单 ， 且 图 形 又 不 复杂 ， 完 全 可 以 用 
节点 法 来 实现 。 
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人 源 程序 ( 见 GP 1513) - 
5 六 EM GBP1513 
10 HGR2 :Y = 80. 
20 FOR X = 30 TO 240 STEP 10 
25 S?T=30- X:A=.25+X/15:B = 
10 + X / 15: 
30 C = 3: G0SUB 60 
35” FOR J = 1 TO 100: NEXT 
40 C = 0: GosUB 60 
45 NEXT X  ， 
50 C = 3: GOSUB 60 
和 END 
60- 由 ,= 3-14159 / 180 * ST 
70RAL= As Cos (T)+T0w SIN (T) 
:BL =0w Cos (T) -Ar SIN 
(T) 
75 R2 = AAA Cos (T)+BwA SIN (T) 
:B2 = Bx* Cos (T) -Am SIN 
() 、. 
80 AR3=0x* Cos (TIT) +TBx* SIN (T) 
:B3 =B* Cos (T)- 0，* SIN 
《IT) 
85 AMA=0A COoS (TIT)+ (B+RA/ 2) x 
SIN (T):B4 = (BT+TA/2) * Cos 
(T) -0y* SIN (T) 
90 “HCOLOR= C 
95 HPLOT X,Y TOX+T ALY + B1l 
100 HPLOT X+ RAY + BL TO X + ARA2， 
8B2 
YY105 HPLOT X + A2,Y + B2 TO X + A3， 
TB3 
110 HPLOT X,Y TO X + AR,Y + B4 
115 RETURN 
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@ 程序 说 明 

5 一 55 句 为 主 程序 ，25 句 是 小 旗 变 换 的 角度 ,实际 放大 的 
边 长 ， 这 些 都 是 循环 变量 X 的 函数 ， 移 动画 面 由 20 一 45 句 的 
循环 实现 。 

60 一 115 句 子 程序 是 实现 放 转 变换 及 夯 小 旗 的 模块， 旋 块 
变换 是 相对 于 参考 点 (X，Y ) 进 行 的 。 

2。 模拟 人 的 跑步 运动 

人 的 跑 步 运动 ， 实际 上 是 一 个 变化 的 图 形 动画 ， 用 节点 
法 . 与 造型 法 组 合 来 制备 3 幅 不 变 的 图 形 ， 在 不 同时 刻 显 示 不 
同 的 图 形 ， 见 图 1.23。 人 的 头 部 用 造型 ， 身 子 用 HPLOT 
语句 实现 。 


c 这 
充 1 


图 1.23 跑步 运动 不 同时 刻 显示 的 图 形 
@ 源 程 序 〈 见 GP 1514) 


5 REM GP1L214 
6 DRATRQR 1,0,.4,0,45,12,12,100,100,10 
”0,63,79,33,228,228,60,63,63， 2 

45，33,863，63,863v46， 45,，61， 62 ,和 3， 
5,61,.55,54,54,49,14， 118， .94 ,0 

SS FOR I = JT TO 39 

3 READ A: PPOKE 24572 + Iv 和 A: 林 玖 欠 工 

LI15 HGR2 :YY = 100: SCALE= 1: ROT= 0 
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Qx aQx an 


K1 = 232:K2 = 233: HCOLOR= 3 
HPEOT 0,160 TO 270,150 

POKE K1,0: POKE K2,96 
FOR X = .40 ?oO 240 

= 3: GOSUB 300:C = 0: GoSUB 300 


=4X + 4 


3: GOSUB 500:C 0: GOSUB 500 


= X+4 
= 3: GOSUB 360:C 


NEXT 
CC = 3: GO3SUB 300 

END 

HCOLOR= C: DRRAW 1 RAT X,Y 

HPLOT X,Y TO X + 4,Y + 20 TO X + 


0: GOSUB 360 


16,Y + 30 

HPLOT.X,Y TO X - 4,Y + 30 

HPLOT X 一 4,Y+ 309T0X1T 6Y + 
42 TO X -6,Y + 53 

HPLOT X - 4,Y+ 30 TOX 一 2,Y + 
40 TO X - 157Y + 60 

IIPLOT XY TOX -6,Y+ 20 TO X + 
5,Y + 30 

RETURN 


HCOLOR- .C:; DRAW 1 AT X,Y 
HPLOT X,Y TOX + 7,Yt+ 15 TO X + 
25,Y+f10 

HPLOT X,Y TOX 一 8,Y + 28 


-RHPLOT X 一 8,YH2838 TOX4+ 6，Y + 
35 TO X -一 2,Y 1 55 
HBPLOE X - 8,Y+ 28 TOX 一 14,Y 1+ 
40 TO X - 34,Y + 37 


400 


HPLOT X,Y TO X - 10,Y+ 1 TO X 
+ 2,Y + 26 


420 RETURN 

500  HCOLOR= C: pbRAW 1 AT X,Y 

510 HPLOT X,Y TOX1T+ 2,Y+ 15 TO X + 
~、15,Y + 12 4 

320 HPLOT X,Y TD 基 5,Y + 30 

530 HPLOT X - 5,Y+ 30TOXT+ 7,Y + 

38 TO X- 5,Y+ 53 

540 HPLOT X - 5,Y t+ 30TOX 一 1,Y + 
，40 TO0OX- 16,Y+ 50 

550 IIPLOT X,Y TOX- 5,Y + 20 TO Xt+ 

5 30 

560 RETURN 

@) 程序 说 明 


5 一 200 句 为 主 程序 ，8 一 9 句 将 人 头 部 造型 表 存 入 下 6000 
为 起 始 处 , 25 句 为 画 地 面 ;40 一 110 句 为 模拟 人 的 跑步 运动 。 

300 一 35 0 为 画图 1.23( a) 子 程序 。 

360 一 42 0 为 画图 1.23(b) 子 程序 。 

500 一 56 0 为 画图 1.23(c) 子 程序 。 

五 、 轴 的 结构 及 其 装配 过 程 的 模拟 

图 1.24(a)、(b ) 为 两 种 轴 的 结构 及 其 轴 系 部 件 ， 现 要 
和 

.过 程 描述 

图 |.24( a ) 轴 的 结构 ， 其 轴 上 和夫 部 件 半 本 顺序 为 圆柱 
肖 轮 、 长 轴 套 和 右 端 轴承 从 轴 的 右 端 装 入 ， 左 轴承 . 短 轴 套 、 
让 系 透 基 和 于 联 灶 吕 风 从 铀 的 在 端 依次 装 入 ， 图 1.24(b ) 轴 

结构 ， 其 轴 上 有 零 部 件 装配 顺序 为 ， 圆 柱 齿轮 、 阶 梯 轴 套 、 
所 庆 轴 条 和 半 刁 办 台 松 次 由 办 的 和 志 装 入 仪 司 右 册 轴 承 从 
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1 .24 钠 的 两 种 结构 形式 
1.a 轴 ，2. 齿轮 3. 右 端 长 轴 套 ; 4. 轴 
承 ; 5. 右 端 轴承 盖 ;， 6. 左 端 短 轴 套 : 7. 
左 端 透 盖 :， 8. 半 联 轴 器 ， 9. 箱 体 ，18 . 
b 轴 ; 19 . 左 端 阶段 轴 套 。 


轴 的 右 端 装 入 。 从 这 两 种 的 装配 过 程 可 知 ， 前 者 较 后 者 多 增 
加 了 一 个 作为 轴 向 定位 的 长 轴 套 。 

2. 图 形制 作 

图 1.24 全 部 用 造型 ， 册 前述 工 具 完成 ， 模 拟 装 配 过 程 共 
有 3 个 造型 。 第 一 个 造型 代表 图 1.24( a ) 轴 ， 第 二 个 造型 代 
表 齿 轮 ， 第 三 个 造型 代表 右 端 长 轴 套 ， 第 六 个 造型 代表 左 端 
短 轴 套 ， 第 七 个 造型 代表 左 端 轴 和 承 透 盖 ， 第 八 个 造型 代表 半 
联 轴 器 ， 第 九 个 造型 代表 箱 体 ， 第 十 一 第 十 七 与 第 二 十 一 第 
二 十 一 个 造型 代表 补 线 线条 ， 第 十 八 个 造型 代表 图 (b ) 轴 ， 
第 十 九 个 造型 代表 左 端 阶梯 轴 套 ， 第 二 十 二 一 第 二 十 三 个 造 
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型 分 别 代表 ( a ) 与 (b ) 造 型 ， 第 二 十 四 一 第 三 十 二 为 1 一 9 
的 数字 字符 造型 。 

3。 动画 轨 壕 坐标 的 确定 

由 图 形 数据 交互 生成 工具 GP 1407 生 成 相应 的 图 形 以 及 
关键 过 程 的 坐标 ， 所 谓 关 键 过 程 即 零件 在 装配 过 程 发 生 改 变 
的 一 退 间 ， 找 出 这 一 瞬间 的 坐标 ，. 作 为 条 件 语 句 判定 的 依 
据 。 \ 

4。 关 键 问题 的 处 理 

在 轴 系 零 部 件 的 装配 过 程 中 , 比如 圆柱 齿轮 的 装配 过 程 ， 
在 与 轴 相 互 重大 时 ， 要 抹 去 被 轴 中 去 的 线条 ， 而 且 由 于 轴 的 
直径 不 同 ， 其 抹 去 的 线条 长 短 不 一 样 ， 见 图 1.25(a ) (b ) ， 
实现 的 方法 是 利用 补 线 的 原理 ， 采 用 多 个 造型 在 不 同 的 位 置 
显示 相应 多 个 造型 来 实现 ， 图 1.25(b-) 由 ,3 个 造型 组 成 ， 
1.25(d ) 由 两 个 造型 组 成 。 


(c ) (d) 


1.25 齿轮 装配 的 补 线 原理 
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d 四 源 程 序 〈 见 GF1515) 


5 REM  GP1515 
9 SCALE= 1: RoT= 0 


10 


30 
32.. 
36 


38 
39 
40 


POKE 232,0: POKE 233,96: HCOLOR= 
3:K = .0 

HGR : POKE  .- 16302,0 

HGR2 ， POKE: 230,64: 

GOSUB 950: POKBE 2307 32: GOSUB 95 
，0: 

FOR I = .1 TO 500: NEXm 
A=0:X-30y= -13 

POKE 230,32: _ gosuB 1000: POKE 23 
0,，64: GOSUB. 1000 

A= 1:X = 30:Y = 95 


45 
520 


67 
68 


70 
71 
72 
74 
75 
80 


30 


102. 
108 


110 
115 
120 


POKE 23f， 32: GosuB 10003: FEOKE 23 
0,.64: GOSUB 1000 2 
FOR I = 上 TO 1000: NBEXT 工 
RAR =-:0:X= 30:Y = - 13: SG0sUB 700 
FOR IT = 1 TO 500: NBXT 工 
= 人 + 1:: Goro 108 
AR= 1I:X= 30:Y = :- 13: GoSUB 800 
FOR I = 39 TO 121 STEP 2 
POKBE 一 16300,0: POKBE 230,64 
.LHCOLOR= 0: GOSUB 2000 : HCQLOR- 3 
: GOSUB 2100 
POKBE  - 16299,0: POKE - 230， 32 
HCOLOR= 0: GOSUB 2000: HCOLOR= 3 


: GOSUB 2100 

GOSUB 2300: NEXT I: GOSUB 2350 
IF A = 1 THEBN ,321. 

FOR I- =-182 T9,126 3STEP.，- 2 
POKE  - 16300,0: POKB- 230，64 
HCOLOR= 0: GOSUB 1900: HCOLOR= 
3: GOSUB 1910 
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130 


135 


142 
148 
180 
190 
195 


210 
220 


228 


240 
250 


260 


270 


:290 


300 


310 


321 


322 
323 
324 


326 


332 
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330 


3335 
340 


345 


350 


360 


POKE  - 16299,0: POKE 230,332 
HCOLOR= 0: GOSUB 1900: HCOLOR= 
3: GOSUB 1910 四 
GOSUB 2300: NEXT I: GOSUB 2350 
GOSUB 2350 

FOR TI = 182 TO 151 STEBP- - 1 
POKE  - 16300,0: POKE 230,64 
HCOLOR= 0: _ Go8UB 2200: HCOLOR= 
3: GOSUB. 2220: 

POKE  - 16299,0: POKE 230,32 
HCOLOR= 0 : GOSUS: 2200 : HCOLOR= 
3: GOSUB 2220. 四 
GOSUB 2305: NEXT I: GOSUB 2350 
HCOLOR= 3: DRAW': 3 AT 150,130 
FOR IT = 50 TO 117 
PEOKE…-- 16300,0:- POKE 230，64 
HCOLOR= 0: G0SUB. 2 和 00: HCOLOR= 
3: GOSUB 2420: 


'POKBE  - 16299,03; BOKE 230， ,32 
HCOLOR= 0: GOSUB 2400: IICOLOR= 


3: GO3SUB .2420 
GOSUB 2310: NEXT 工 


GO3SUB 2350 


IFARA= 0 THEN 340 

FOR IT = 54 TO 122. 

POK 卫 - :16300， 02: POKE 230,64 
HCOLOR= 0: GO03SUB 2130: HCOLOR= 
3: GOSUB 2150 


BOKE -~ 16299,0: POKE 230,32 
HCOLOR= 0: GOSUB 2130: HCOLOR= 


3: GOSUB 2150 

GOSUB 2305: NEXT IT: GOSUB 2350 
FOR IT = 45 TO.100 

POKE ” - 16300,0: boKE 230,64 
HCOLOR=- 0: GOSUB 2500: NHCOLOR= 
3: GOSUB 2520 

POKE  - 16299,0: BOKE 230,32 


HCOLOR= 0: GOSUB 2500: HCOLOR= 
3: GOSUB 2520 
IF A= 0 THEN GOSUB 2315 
IFA= 1 THEN GO3SUB-2310 


NEXT I 
GOSUB 2350 _ 
FOR I -= 194 TO 183 STER -~ 1 


HCOLOR= 0::-GOSUB 2600: HCOLOR= 
3: GOSUB 2620 


POKE  -- 1623970: POKE 230,，32 


HCOLOR= 0: GOSUB 2600: HCOLOR = 


IF A = 0 THBN GOSUB !'2320 
IF A = 1 THEN， GOSUB 2315 


GOSUB 2350  :: 

HCOLOR= 3: GoSUB 1300 

FOR TI = 63 ?0 98 

POKB  - 16300z0: BOKE 230，64 
HCOLOR= 0: GOSUB 2700: IICOLOR= 
3: GOSUB 2710， 

POKBEB  - 16299,0: POKE 230,32 
HCOLOR- 0: GoOSUB 2700: HCOLOR= 
3: GOSUB 2710 : 

IF 有 A_ =:0 THEN GOSUB 2325 


IF A= 1LI THEN GoOSUB 2320 
NEXT :TI 

GOSUB 2350 

FOR I = 210 TO 195 STEbP-” - 并 


POKE  - 16300,0: BOKBE 230,64 
HCOLOR= 0: GOSUB 2800: HCOLOR = 
3: GOSUB 2820 

POKE  - 16299,0: POKE 230,32 
HCOLOR:-= 0: GoSUB 2800: HCOLOR= 
3: GOSUB 2820 
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IE A=- 0 THEN SOSUB 2330 


IF A = 1 THEN .6o3SUB. 2325 
NEXE 一 
GOSUB 2350 


HCOLOR= 0: POKE 230， 32: DRRAW 11 
RAT I - 1，1234 - 

POKE 230， 64: DRAVW LIl AT I -~ 1 1 
234 :wa 


- 闻 OR I = 60 O 72， 


POKE  - 16300,0: POKE .230,64 
HCOLOR=. 0: 'G0SUB 2900: HCOLOR- 


37* GOSUB 2920- 


POKE  - 16299 ,0: POKE .230 ,32 

HCOEOR= 0: GOSUB 2900.: HCOLOR = 
3 GO8gSUB 2920 - 、 加 
IFA= 0 THEN GO0SUB 2335 

IER A = 工 THEN GOSUB 2330 

NEXT 工 

POKE  - 1629939,0: POKBE 230,64 
IR AI= 0 THEN GO3SUB 2335 

IPA= 上 1 TIEN GoSUB 2330 

IFEK = 1 THEN FOR IT = 1 TO 300 
:2 NEXT I:K =K'+ 1: GOTO 72 

FOR I = 1 9 3000: NEBXT 工 

TOME  : TEXT 

VTAB 10: RTAB 8B: INPUT "Do you 

有 ontinmuez(Y/N)”; AS 了 

IF AS = "N" THEN HOME :， TEXT 
END 


GOTO 8658 
END 
HGR : POKB. -- 16302,0: HGR2 


POKE 230,32: GOSUB 1000 


DRAW 1 RAT 190,150 


POKE, 230,64: GOSUB 1000 
DRAW 1 RT 190,150: 


750 
800 
805 
815 
820 
830 
835 
850 
900 
920 
930- 
950 
952 
955 
960 
1000 
1002 
1003 
1005 
1010 
1040 
1070 
1090 
1110 
1115 


1L1117 
1210 


RETURN 
HGR : POKE - 16302,0:- HGR2 


POKE .230,32: GOSUB 1000 

DRAW 18. AT 191,140 

POKE 230,64: GOSUB 1000 -. 

DRAW 18 AT 191,140 

RETURN 

POKE 230,32: DRAW 1 AT 1250,150 
POKE 230,64: DRAW 1 AT 190,120 
RETURN 

DRAW 1 AT 190,47: DRAW 18 AT 1 9 
2,145 . 
DRAW 22 AT 215,47: DRRW 23 AT 2 
15>155 

HPLOT 0 ,0 TO 278,0 TO 278,191 TC、 
0,191 TO 0,，0. 


RETURN 
IEA>= 1】 THEN GOoOSUB 1240 
GOSUB 955 
IF A= 0 THEN GOSUB 1210 
GOSUB 955 
DRRAW2 RMTXT+ 94,41 + YY: DRAW 
4RTXTATY IT1，33 + 


DRRAW 5 RTX + 164,69 + 了: DRRAVW 
7 ATX + 69,32 + YY 

DRAW 8 AT X + 44,45 + Y: DRRAVW 
9 RATX + 62,，32 + Y 
DRAW 10 RATXT+ 85,34 + 
4 RTX + 153,，33 + 《YY 
DRAWO9 RMTXf+ 148,32 + 
12 RATX+ 25,Y+ 43 
DRAW 10 AT 148 + X,，,Y 十 
RETURN 

DRAW 1I AT X. 160,60 + 
6 RTX+ 88,43 + 《YY 


Y:， DRRAW 
Y: DRAVW 
34 


YY DRAW 
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DRAW 3 
HCOLOR = 
HCOLOR= 
DRAW 22 
DRAW 18 


DRAW 19. 


HCOLOR= 


RHCOLOR= 


DRRAW 22 
POKBE  - 
GOSUB 1 
POKBE  - 
GOSUB 1 
DRAW 9 

15,124 


AT X+ 120,40 + 


0: DRAW 23 AT 215,47 


AT 215,47: RETURN 
AT X + 162,50 + Y 
RATX+ 94;741 + YY 

: DRAW 23 AT 215,47 


AT 215,47: -RETURN 
16299,0: POKE 230,32 
320 
16300,0: POKBE 2Z30，64 
320、 
AT 92,122: DRAW 10 AT 1 


DRAW 9 RAT 178,122: DRAW 10 AT 


178,，124 


DRAW 16 
RETITURN 
DRAW > 
IER I > 
及 ETURN 
DRAW 2 


IE II > 


AT 92,118: DRAW 15 AT 


AT I, 上 31 
166 THEN DRAW LI1 AT 工 + 


AT TI 2,131 
168 THEN DRAW 121 MT IT + 


RAT TI 131 


99 THEN DRAW 13 AT I，,1 


73 THEN DRAW 13 AT I + 


73 AND I《 9399 THEN 3S91 = 


11: DRAW 21 AT I +f 26,127 


IE 工 > 
27 


73 THEN DRAW 21 AT TI,，1 


2019 
2020 
2160 
2102 


2104 


2106 :.: 


交工 立 了 于 


2115 


ZJ420 - 
:2 38: 


2132 
2134 
2136 
2138 


2140 


2150 


2152 
只 
2154 
2156 

\ 
2158 


IIBRI2A 56 了 THEN DRAVW 工 


25 


RETOURN : 
DRAW. :2 和 A: 3 2 :131 
IR I 《 97 THEN 


<. 13 


0 


了 可 二 0 RNDSE 
四 


“了 DRAW- 


212AT: 生 


3 有 


了 TE IT 《< 54 .HEN, 


:站 ?时 让 所 


了 了 TU 了 RN 


D 肥 AW - 9 人 AT- 江 ， 131- 


1 了 3: 


DRAV 1 


DRRY 1 


-AT 工 


ar 1 


-28 127 


AT 工 ， 


工 


二 


十 


< 97: THEN - 3S1-= 


DRAWi: 3 RAT 工 -+ 


DRAW 11 AP 1 + 


DRAW 19 :AT f 王 ， 革 3I 
IF I》 96 下 入 EN 


人 
1F 
1 了 3 : 


本 


DR 


52 AND 工 
13 AT I 


IF I >:66 AMNBD LI 
已 RAW 人 了 人 久 T 斑 
IF I《“ 68 THEN DRAW 工 2- AT 工 - 


14: 


工 2 | 


32 


IF > 97 THEN :DRAW-1L3 RAT 191 
,140 
IF TI 》53 ANG T .100， THEN S1 = 
>*DREW 13 AT IT,130 
IF TI >》67 AND I《 112 THEN S1 = 
14: DRAW 1 了 MT T 一 13,130 
IF 工 《 69 THEN DRRW 了 2 RAT 工 - 
了 子 ，1 汪 32” 
RETURM “ 


D 妇 翅 久 18 AT 了 131 


和 
二 
< 


99 THEN S1 
了 ,30 

福生- :HEN S1 = 
12 .130 
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2180 
2200 


.2205 


2220 
2225 


2230 


.2300. 


2305 
2310 
2315 
2320 
2325 
.2330 
2335 
2340 
2350 


2360 
2400 
2401 


2402 


2404 


2406 
2408 
2418 
2420 
2422 
2425 


190 


RETURN 
DRAW 3 AT I,130 
IF I. > 160 THEN， DRAVW 12 AT I + 


32，132 


DRRAW 3 AT I 


1 130 


IF IT :> 161 THEN DRAW 12 AT I + 
317132. 
RETURN 


DRAW. 
DRAW 
DRAW 
DRAW- 
DRRAW 
DRAW 
DRAW : 
DRAW 
DRAW 


24 
25 
26 


HCOLOR= 


RETURN 


20,160 : 
20 ,100 : 
20 ,100 : 
20,100 : 
.20,100 : 
20，100 : 


20,100 : 


20 ,1007: 
0 : BOKE 230，32: 


RETURN 
RETURN 
RETURN 


RETURN 


RETURN 
RETURN 
RETIURN 
REIURN 


民 ETURN 一 


IE 基 


152: 


《 


和 AT Ti ,133 
106 TIEN 


DRAW 1 AT 
64 THEN DRAW 12 AT 
57 THEN DRAW 12 AT 


106 AND I > 57 THEN 


DRAW 13 AT 工 


- 7，130 


13 


S1 


IF ITI《 99 AND I > 55 THEN ?1 


二 4 


RETURN 
DRAW 6 AT I + 1,133 


IF TI > 106 THEN DRAW 1 AT 190 


)150 


DRAW 13 AT I,130 


IF TI“ 63 THEN DRAW 12 RT 1 


6，,132 


DRAW :3 


0 


2430 
2440 


2450 


2490 


2500 
2502 


2504 
2506 
2508 
2518 
2520 
2525 
2530 


2540 


2550- 


2580 
2600 
3602 
2610 
2620 
2625 


2630 


2700 
2101 


:TIPR I《 56 THEN DRAW 12 AT 
1 ， 132 


了 
. 业 


十 


TF TI 《 105 AND I-” 57 THEN S1 
16 : DRRAW 13 AT IT - 6,130 

IR I 《 98 AND TI > 55 THEN S1. = 
15: DRAW 13 AT TI + 1,130 

RETURN 

DRAW:4 AT II, 工 2 3 

IER I 《57 THEN DRRAVW 12 AT I 工 ~ 
上 上 ,132 

IF IT 《 46 THEN: DRAW II2 AT I 工 + 
10,132 

IF IT 《 100 AND T > 42 THHN SSL1 
17: DRRAW 13:AT I -~- 1,130 
.IERI《 8393 AND I. > 45' THEN Sl = 
16: DRRAW 13 AT IT + 10,，130 
RETURN : 

DRAW 4 AT I + 1,123 

IF I"《 56 THEN DRAW 12 AT 1,，1 
32 

IE TI《 45 THEN DRAW 12 AMT 了 + 
IF I《99 AND I > 41 THEN S]l = 
17: DRAW 13 AT TI, 工 30 

IF TI- 《< 88 AND II> 45 THEN S] = 
17: DRAW 13 AT IT +f 11,130 
RETURN 

DRAW 4 AT T,，1L23 

DRAW 12 AT If+f 1I0,132 

RETURN. 

DRAW 4 AT I ,II23 

DRAW LI2 AT I + 9,132 

RETURRN 

DRAW :7 AT TI,122 

IE I《 70 TIIEN DRAW 12 AT II 
14,132 
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2702 IF:I >:69 AND I 《 89 THEN S1 
18: DRAW 1L4 RAT I - 14,130 
2703 IF I《“ 81 HBN DRRAW 14 AT I 
7,130` 
2704: DRRAW 7-AP I + 1， 123 
2708 RETURN 
2710 DRAWI RMTI + 1， 12 和 
2711 IFR TI 69. THBN DRRW 12 AT 1I 
3， 132 
2712 TF I >,70. AND I《 88 .THPN S1 
-tt9:，DRAW 14 AP I - 13,130 
2713  IR I《. 80 THEN DRAW 14 AT 1I - 
-6130- 
2715 DRRAW. 17 RAT TY + 2,123 
2718 RETURNR 和 
2720 DRAW: ? 
2730 DRRAW 10 AT 148 + K1l， 34 + Y1 
2735 “ RETURN- 
2800 DRRAW.5 RMT I,159: DRAW 11 AT 1 
1,124 
2818 RETURN 
2820 DRAW 5 RMT1I - 1,159: DRAW 11. AT 
I 盖 2，124 
2830 RETURN-. 
2900 DRRARW 8 AT 1,，135: DRRW 12 AT 1] 
19 ,132 
2910 RETURN 
2920 DRRAW 8 ATI + 1,135: DRRARW 12 AT 
IT - 18,132 
2930 ”RETURN 


@) 程序 说 明 
5 一 690 句 为 主 程序 ，10 一 38 句 在 两 页 上 画 出 两 根 轴 并 停 
一 会 ，39 一 67 句 擦 掉 轴 并 画图 ， 然 后 停 一 会 
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68 句 为 显示 图 1.25(a) 及 其 相应 辅 ， 见 图 1.26 (a)， 
110 一 142 名 为 模拟 贺 柱 齿轮 从 轴 的 右 端 装 入 ，186 一 228 旬 为 
模拟 长 轴 套 从 轴 的 右 端 装 入 ，250 一 310 句 为 模拟 短 轴 套 从 轴 
的 左 端 装 入 ，340 一 380 句 为 模拟 左 端 轴 承 从 轴 的 左 端 装 入 ， 
390 一 480 句 为 模拟 右 端 轴承 从 辅 的 右 端 装 入 。482 句 为 画 出 箱 


号 
一 -一 we 一 一 上 
， ,一 -err -er ear wererv epreeereieriureeeeoraeeilrcauraaeernerea ee 必 


1.26 两 种 轴 的 结构 
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体 ，485 一 520 句 为 模拟 左 端 透 盖 从 轴 的 左 端 装 入 ，530 一 580 
句 为 模拟 轴承 盖 从 轴 的 右 端 装 入 ，， 600 一 650 名 为 模拟 半 联 轴 
器 从 轴 的 左 端 装 入 。 
72 句 为 显示 图 1.25(.b) 及 其 相应 轴 ， 见 图 1.26(b .74 一 
102 句 为 模拟 圆柱 齿轮 从 轴 的 左 端 装 入 ， 323 一 325 句 为 模拟 阶 
梯 轴 套 从 轴 的 左 端 装 入 。 左 轴承 、 右 轴承 、 箱 体 、 透 盖 、 轴 
承 盖 和 联 轴 器 的 装配 见 上 述 。 “ 
700 一 750 句 为 画图 1.26(a) 子 程序 。 
800 一 850 句 为 画图 1. 26( b) 子 程 序 。 
950 一 960 句 为 画 两 根 轴 子 程序 。 
1000 一 1315 句 为 画图 1.25 子 程序 。 
运行 程序 GP1515 需 要 图 1. 24 零 件 的 造型 表 。 


第 三 节 ”从 数据 结构 来 生成 一 幅 动 画 


前 面 介绍 了 中 华 学 习 机 图 形 显示 原理 ， 动 态 图 形 设 计 技 
巧 并 给 出 了 一 些 实例 程序 ,基本 上 都 是 首先 构造 动画 的 模式 ， 
然后 用 程序 来 实现 ， 下 面试 图 从 数据 结构 的 角度 来 生成 一 幅 
由 造型 法 来 实现 的 动画 ， 即 改变 数据 和 相应 的 造型 ， 就 能 得 
到 满足 预定 要 求 的 动态 图 形 ， 改 变数 据 和 造型 借用 图 形 数 所 
交互 生成 工具 与 造型 生成 工具 来 完成 。 

一 、 数 据 结构 

前 述 几 章 介绍 了 从 索引 变形 树 数 据 结构 来 生成 一 幅 图 形 ， 
并 给 出 了 相应 的 程序 操作 ， 存 贮 各 图 形 的 指针 的 表 可 以 看 为 
索引 表 ， 从 动画 的 角度 考虑 ， 可 以 增加 辅助 索引 ， 存 放 各 图 
形 索 引 的 指针 以 及 关键 字 ， 其 相应 的 数据 结构 见 图 1. 27。 

B%( II) 数 组 存 贮 每 幅 子 图 形 的 图 形 数据 ， 实 际 上 是 各 
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造型 移动 的 轨迹 坐标 以 及 颜色 ; A% ( 工 ) 数 组 按 顺 序 存 贮 各 
图 形 数据 的 首 指针 及 尾 指针 ， 以 便于 各 图 形 的 正方 向 与 反方 


量 加 轴 四 下 
加 汪 


加 主 索引 
一 必 


图 1.27 二 级 索引 的 树 结 构 
向 移动 的 实现 C%( I ) 数 组 存 贮 主 索引 表 指 针 及 其 动态 图 
形 的 关键 字 ， 比 如 该 关键 字 用 来 表示 : 双 页 动画 , 单 页 动画 ， 
在 某 处 显示 提示 信息 或 图 形 、 声音 等 等 ， 有 关 该 种 结构 的 交 : 
互 实现 ， 程 序 稍 大 也 较 复 杂 ， 由 于 本 书 的 篇 幅 , 这 里 就 从 略 ，， 
下 面 用 个 简单 的 动画 实例 来 说 明 该 种 结构 的 程序 
、 程 序 实现 
@ 用 数组 来 实现 索引 结构 
为 了 方便 我 们 用 两 个 造 “中 六 和 “ 国 ” 组 成 的 屏幕 ， 


中 出 
中 中 中 国 固 国 
1.28 汉字 屏幕 


见 图 1. 28%= 并 要 求 它们 按 其 路 径 同 时 移动 看 看 如 何 由 数据 ， 
结构 来 生成 相应 的 动画 。 
相应 的 路 径 坐 标 见 表 1.4。 


表 1.4 

Drawing = 1 

1 100 60 3 1 40 60 3 
1 50 70 3 、160 8 3 
1 70 9%0 3 1 80 100 3 
1 90 100 3 1 100 100 3 
2 120 58 3 2 180 58 3 
2 170 68 3 2 160 78 3 
2 150 88 3 2 140 98 3 
2 130 9%8 3 2 120 9%8 3 


上 述 数据 有 两 个 造型 ,分别 调 用 8 次 ,除去 各 造型 的 颜色 ， 共 
有 64 个 数据 。 我 们 设置 C%(T)、A%(I)、B%(TI) 三 个 
数组 按照 图 1. 27 索 引 结构 来 组 织 这 些 数 据 ， 从 而 实现 相应 的 
动画 。 
B%(TI) 数组 存 图 形 数据 ，A%( 工 ) 安排 主 索引 表 ， 
C%( 工 ). 数组 安排 辅 索引 表 。 
B%(0 ) 存 放 每 个 造型 被 调用 的 次 序 , 即 8 次 ; B%%(1) 一 
B% (64) 存放 图 形 数据 ，A%(1) 一 A%(2) 存放 第 一 个 
造型 在 B%( 工 ) 数 组 中 的 位 置 ， 即 指针 1 和 32，A%(5 ) 一 
A%(6) 存 贮 第 2 个 造型 在 A%( 工 ) 数 组 中 的 位 置 ， 即 指针 
33 一 644 C% (0) 存放 同时 动画 的 造型 个 数 , 即 2, C% (1) 一 
C%(2) 存 贮 第 二 个 被 调用 造型 图 形 数据 指针 在 A%( I ) 数 
组 中 的 位 置 ， 即 指针 5 一 6，C%(6) 一 C%(7) 存 贮 第 一 个 
被 调用 造型 图 形 数据 指针 在 A%( TI) 数组 中 的 位 置 , 即 1 一 2。 
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@ 源 程 序 ( 见 GP1516) 


5 REM  GP1516 

'8 .DIM B%(100) ,AS%s(20),C%(20 ) 

10 DRATA 1,100,60,3,1,40,60,3,1,50 
/70,3,1,60,80,3 

30 DRATRA 1,70,90,3,1,80,100,3v,1v90 
,100,3v,1vr100,100,3. 

.50 DATRAR - 2,120,58,3v,2,180,58,3,2，1 
70,68,3,2，,160,78,3 

70 DRTA 2,150,88,3,2,140,98,3,2,1 

30,98,3，2,，120v.98,3 

80 DRTA 2,0,14,0,32,0,0v,0,100,，44，4 

5,45，45,45,81,41，45，45，53，54,63 
"63,63,36v,36,33,52,54v54,54v，54， 
0 

90 DRTA 128,81,10,45,45,45,54,54,5 
昌 54.63j163，63，39,，3636，36，,164，7 
4,42,237,51,62,45,221,54,47,45， 
9,220,148,0 

395 FOR IT -1 TO 64: RERAD B%(I) :NEXT 


100 ”FOR I = 1 TO 64: READ .A: POKERE 2 


4575 + IT ,及 
105 NEXT 
110 BYS(0) = 8- 
1Z0 AS(l) = 1:AS%(2) = 32 
130 AS (5) = 33:RAS(6) = 64 
140 CS%(l1) = 5:C%(2)~-= 6:CS%(3) = 0:CS% 
。 《4) = 0 
1I45 CS%(0) = 2 


4 


150 CS%(6) = 1:C%(7) = 2:C%(8) = 0 

125 .SCALE= LI: ROT= 0:K1L = 232:K2 = 
233 

160 HGR2 : HCOLOR= 3: POKE X1 ,0: POKB 
K2,，96 

170 FOR L = 0 TO BS(0) - 1 
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175 :FOR J =-1 TO C9% (01j 
180 I0. = CS(E- + 5 * 人] - 1)) 
200  HCOLOR= 33:K < .Mg%(I0): GOSUB 400 


210 NEXJIJ 

215 FOR J2 = 1 .7?0 200: NEXT 

20 FOR 本 = 1 TO cs(0) 

230 I0 = CIt + 5 wx (了 - 1)) 

240 。HCOLOR=- 0:K = AS%(I0); GpSUB 400 


250 NEXT 了 

260 EXT 工 

265 LE=DE -1 

270 ,FOR JI = 1 TO CS%(0) 

275 T0 = estLl +:5w (JJ - 1)) 

350 HCOEOR= 33K， :二 Ag%(I0): GO9SUB 400 


-285 NEXT J 
“300 ”END- 
400:I:=: 忆 5 (到 +4w L):X = BS(K + 4 Y 
L+1l):Y= BS(K+4*LL+ 2) 
410 DRRARW IT RMT X,Y 
420 ”RETURN 
昌 程序 说 明 甸 - 
十 300 句 为 刺 程 序 ，10 一 70 句 为 图 形 数据 ， 由 95 续 进 
了 B%4《 工 ) 数 组 中 ，80 一 90 句 为 “中 ”和 “ 国 ”的 造型 数据 ， 
由 100 句 放 和 六 $6006 为 起 始 处 ， 110 一 150 由 B% (了 )、 A%(J)、 
:C%( IT) 按 甸 1. 27 索 引 结构 思想 安排 相应 的 数据 结构 170 一 
210 的 二 重 循环 实现 “中 ”和 “ 国 ” 两 个 造型 按照 图 1,.27 的 路 
径 由 土 向 下 移动 。 
400 一 420 句 为 调用 相应 造型 子 程序 。 
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如 果 用 下 面 的 语句 替换 GP 1516 程 序 相 应 的 语句 ， 就 会 
实现 “中 ”和 “ 国 ” 造 型 按 图 1.27 由 下 向 上 移动 。 


140 C%(1) = 5:Cs(2) = 6:Ca(3) = 0:ca 
4) = 0 


145 Cs(0) = 2 
450 c%(6) = 1:C%(7) = 2:CS%(8) = 0 


如 果 改 变 移动 路 径 坐标 或 用 其 它 造 型 替换 “中 ?” 与 “ 国 ” 
造型 + 就 能 获得 另 一 辐 动 画图 形 。 

对 GP1516 程 序 结构 ， 只 要 改 其 数据 ， 就 可 以 实现 多 个 
造型 的 同时 移动 ， 如 速度 多 许 的 话 ， 可 以 实现 任意 多 个 造型 
的 移动 。 四 和 

由 上 面 的 实例 可 以 看 出 ， 图 1. 27 描 述 的 结构 可 实现 较为 
复杂 的 动画 。 在 中 华 学 习 机 实现 的 减速 器 拆 装 模 拟 系统 ， 在 
PC 机 上 实现 的 零件 车 削 的 仿真 软件 是 借用 该 种 结构 思想 完 
成 的 复杂 动态 图 形 模拟 。 


第 六 章 “” 通 用 造型 软件 包 2. 0 版 


通用 造型 软件 包 是 在 中 华 学 习 机 及 其 兼容 微机 上 开发 的 ， 
实现 交互 式 键盘 命令 操作 ， 具 有 显示 与 生成 图 形 速度 快 ， 进 
入 与 妨 出 各 功能 模块 实行 区 域 命令 操作 ; 操作 起 来 十 分 方便 ， 
基本 功能 齐全 ， 使 用 灵活 ， 经 挤 实 用 等 特点 ，: 适 用 于 教学 软 
件 的 开发 ,动画 以 及 图 形 库 建立 等 。 下 面 介绍 本 软件 的 结构 ， 
主要 功能 : 软件 实现 思想 及 使 用 方法 。 

<* 第 一 节 软件 结构 与 功能 

一 、 软 件 结构 

本 软件 采用 树 型 层次 结构 ， 用 图 形 汉字 提示 ， 其 结构 模 
块 图 见 图 1. 29， 图 中 只 列 出 了 建立 图 表 的 分 支 模 块 ， 其 它 功 
能 模块 请 参阅 本 章 第 三 节 本 软件 的 使 用 方法 。 

二 、 主 要 功能 

由 图 1.29 可 知 ， 本 软件 共有 6 个 部 分 组 成 ， 其 中 建立 图 
表 、 积 木 块 、 西 文 编辑 均 能 完成 图 表 的 建立 ， 图 形 编辑 主要 
用 于 图 形 库 建立 及 动画 轨迹 数据 的 生成 ;实用 文件 包括 一 些 
实用 工具 。 

1. 造型 表 的 生成 

常见 的 一 些 图 形 一 般 包 括 具有 一 定 函 数 关系 组 成 的 曲线 。 
不 规则 的 造型 ， 包 含 字符 图 形 或 是 复杂 的 数学 式 子 造 型 ， 生 
成 这 类 造型 工具 软件 主要 由 建立 图 表 、 积 木 块 、 西 文 编辑 来 
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实现 ， 建 立 图 表 主 要 是 生成 具有 一 定 函数 关系 的 曲线 造型， 
积木 块 主要 是 快速 生成 造型 或 是 不 规则 的 造型 ， 而 字符 或 复 
杂 的 数学 式 子 造 型 生成 用 西 文 编辑 。 


: 国 1.29 

中 具有 函数 关系 的 造型 ， 

直线 ， 用 十 字 光 标 在 屏幕 上 指出 直线 的 起 始点 .终止 点 ， 
可 生成 任 一 方向 的 直线 。 

实 圆 . , 虚 圆 ,点 划 线 圆 ， 用 十 字 光 标 在 屏幕 上 指出 圆心 、 
半径 ， 然 后 自动 生成 圆 的 造型 。 

实 线 李 圆 、 虚 线 椭圆 、 点 划 椭 园 ， 用 十 字 光 标 在 屏幕 上 
指出 椭圆 的 中 心 、 长 轴 、 短 轴 ， 然 后 自动 生成 顶 圆 的 造型 。 

实 线 圆 弧 、 虚 线 圆 弧 、 点 划 线 圆 弧 : 用 十 字 光 标 在 屏幕 
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上 指出 圆 弧 的 起 始点 、 中 心 及 终止 方向 ， 然 后 自动 生成 圆 弧 
造型 。 

实 线 权 圆 弧 、 虚 线 椭圆 驱 、 点 划 线 椭圆 弧 ， 用 十 字 光 标 
在 屏幕 上 指出 五 点 ， 前 三 点 代表 该 顶 圆 的 形状 ， 后 两 点 代表 
风 圆 的 起 始 及 终止 方向 。 

利用 指定 坐标 自动 按 参数 生成 造型 ， 可 十 分 方便 地 实现 
直线 与 圆 及 圆 弧 相 切 、 任 意 弧 段 的 相 接 或 相 切 。 

@@ 不 规则 的 造型 

生成 这 类 造型 主要 由 矢量 模块 来 实现 ， 吉 者 由 矢量 配合 
积木 块 快 速生 成 不 规则 的 造型。 

矢量 ， 有 网 点 、 看 形 、 删 除 及 4 个 方向 的 画 与 不 画 的 移 
动 矢 量 命令 。 网 点 主要 起 辅助 作 图 的 坐标 定位 ， 删 除 可 抹 去 
屏幕 上 的 点 同时 改变 内 存 的 数据 ， 通 过 移动 矢量 ; 能 随意 地 
在 屏幕 上 模拟 笔 的 移动 来 生成 不 规则 的 造型 

积木 块 ， 有 看 形 、 移 标 、 删 除 等 命令 ， 移 标 主要 确定 被 
积 每 个 造型 的 起 点 位 置 ， 通 过 移 标 来 确定 各 造型 矢量 终止 及 
被 积 造型 的 起 始 位 置 ， 能 方便 地 将 多 个 造型 合并 为 一 个 不 规 
则 的 造型 ， 实 现 积木 式 拼 图 ， 也 能 将 多 个 造型 表 有 选择 地 合 
并 为 一 个 造型 表 或 重 排 造型 表 的 次 序 。 

字符 或 函数 式 子 造型 

生成 这 类 造型 主要 由 西 文 编辑 来 实现 。 

西 文 编辑 ， 有 看 形 、 移 标 、 删 除 、 西 文 及 矢量 等 命令 。 
通过 西 文 命令 可 在 图 形状 态 下 实现 键盘 字符 的 交互 式 编辑 ， 
通过 移 标 、 西 文 及 矢量 命令 可 生成 一 个 复杂 的 函数 式 子 千 
型。 

2， 图 形 编辑 
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图 形 编辑 有 复制 、 搬 入 、: 替 换 、 换 色 、 看 形 、 删 除 等 命 
令 ， 能 对 已 建立 的 图 表 中 的 造型 实现 动态 的 复制 、 插 入 和 蔡 
换 操 作 ， 也 可 以 抹 去 已 经 复制 图 形 的 任意 部 分 ， 一 次 可 编辑 
多 幅 图 形 ， 图 形 数据 直接 存 入 造型 表 之 后 ， 占 内 存 少 编制 
比较 复杂 的 10o 幅 图 形 , 一 次 可 装 入 RAM 内 ， 形 成 的 数据 结 
构 相 对 独立 。 利 用 此 项 功能 ， 可 方便 地 制作 图 库 、 幼 灯 片 、 
动画 数据 的 生成 以 及 各 个 领域 的 图 形 显示 。 


3. 实用 文件 及 打印 
实用 文件 给 用 户 提供 了 -- 些 实用 工具 ， 留 有 用 户 接口 ， 
图 表 压缩 及 图 形 数据 格式 转换 。 


打印 主要 是 打印 各 造型 的 起 点 坐标 ， 每 幅 图 形 的 指针 数 
据 以 及 图 形 的 硬 拷 贝 


第 二 节 软件 实现 


这 里 就 该 软件 在 研制 过 程 中 ， 介 绍 一 些 问 题 的 处 理 方 法 
及 其 主要 功能 的 实现 。 

一 、 软 件 内 存 分 配 

主 菜单 上 的 功能 模块 与 功能 模块 之 间 采 用 覆盖 技术 ， 进 
入 某 一 功能 模块 后 其 运行 的 各 变量 在 不 同 区 域 另 开 缓 冲 区 保 
存 ， 其 内 存 分 配 为 ; 

,建立 图 表 : $800 一 $3 FFF 之 间 存 放 浮 点 BASI1C 语 
言 ， 提示 信 息 直 接 放 在 程序 之 后 ， 并 与 浮 点 BAS IC 一 起 存 
盘 , 共 约 14 KB 内 存 。$4000 一 $5FFEF 为 图 形 显示 缓冲 区 ， 
$ 6000 一 下 9600 为 造型 表 存 贮 区 。 

积木 块 ， $ 800 一 $1 FFF 之 间 存 放 浮 点 BASIC 语 
言 ，$ 4000 一 $5 FFF 存放 提示 信息 或 用 户 子 程序 存 贮 区 。 
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$2000 一 $3 FFE 为 图 形 显示 缓冲 区 。 $ 6000 一 $$ 9600 为 造 
型 表 存 凡 区 。 

西 文 编 辑 ; 和 800_$1FFF 之 间 存 放 浮 点 BAS.IC 语 
言及 提示 信息 ， $4000 一 $5 FFEF 存放 键盘 字符 造型 表 ， 
$2000 一 上 $3 FFF 为 图 形 显示 缓冲 区 。: 书 6000 一 帅 9600 为 造 
型 表 存 贮 区 。 

图 形 编辑 、 实 用 文件 及 打印 :. 和 800- $3FFER 之 间 存 
放 浮 点 BAS IC 语言 及 提示 信息 , $4000 一 $5FFEF 为 图 形 

显示 缓冲 区 ,， 趾 8000 一 下 9600 为 造型 表 存 贮 区 ， 图形 数 据 放 
在 造型 表 之 后 。 

二 、 一 些 问题 处 理 . > 

1. 各 功能 模块 变量 的 传递 

中 华 学 习 机 的 造型 涉及 到 的 变量 都 是 整 型 量 ， 若 这 个 赤 
量 小 于 255， 对 8 位 机 只 用 一 个 字 节 就 可 存放 ， 若 变量 大 于 
255, 则 需 存 放 两 个 字 节 中 ， 这 样 做 有 利于 提高 数据 传递 速度 
与 软件 运行 的 可 靠 性 。 关 于 变量 的 存 取 请 参阅 CGP1405。 

2， 直线 线 型 

用 上 FE 上 OT 语 句 绘 的 斜 线 是 由 拆 线 组 成 的 ， 比 如 绘 45 度 
方向 的 斜 线 5- 其 局 部 放大 见 图 1.30。 这 种 线 型 不 便于 作 图 形 

显示 。 抹 去 斜 上 方 的 3 个 点 ， 即 斜 上 方 3 个 点 为 不 画 向 量 。 
用 造型 来 实现 这 种 线 型 图 1.31 与 前 4 个 点 对 应 的 十 六 sx\ 进 制 数 
为 0C 、.0 C 。 这 样 的 线 型 特别 适用 于 前 面 线 的 显示 。 

3 连续 向上 移动 且 不 画 向 量 

按照 APPLEH 的 造型 定义 不 能 实现 这 一 要 求 ， 因 为 1 
个 八 位 数 可 有 3 个 移动 而 不 画 向 量 ， 如 果 连 续 向 上 移动 且 不 
画 〈 只 要 3 个 向 量 ， 也 就 是 该 造型 的 结束 ), 我 们 是 这 样 处 理 
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的 ， 如 果 连 续 向 土 移动 2 个 不 画 向 量 ， 就 用 二 进 制 10000000 
代表 向 上 移动 并 个 不 画 向 量 ; 实际 上 是 向 上 移动 .3 个 不 画 向 
量 同时 再 向 下 移动 1 个 不 画 向 量 。 


(Xz,Y)?) (XiY)) 

C OO 、 
OO 

O O 
(XivYi) (XiyYi) 
1.30 图 1.31 

三 ;4 主要 动能 的 实现 

1. 按 函 数 关系 来 生成 造型 

中 华 学 习 机 的 屏幕 图 荡 显 示 拓 揭 供 的 高 解析 度 绘图 有 节 
点 法 和 选 歼 法 六 即 # 

人 HPLOT X”Y 或 HPLOT XI、XITTO 久 2，Y2 

在 屏幕 上 画 一 个 点 或 一 条 线 ， 点 的 坐标 由 “(X，YF 给 
定 ， 线 的 坐标 由 (X1，Y1)， (X2，Y2) 给 定 。 

罗 DRWK AT XI Y 

在 屏幕 上 画 一 个 图 形 、 图 形 由 开 定义 ， 图 形 的 企 标 
(和 站 ) 给 定 。 

其 中 @ 易 于 实现 画 圈 ， 画 直线 以 及 其 它 具 有 函数 关系 的 
图 形 、 存 贮 方式 主要 有 两 种 ， 一 种 是 存 贮 整 个 图 形 缓冲 区 或 
经 压缩 以 后 存 贮 缓冲 撤 的 有 关 区 域 ， 这 属于 印象 存 凡 法 ; 另 
一 种 是 兰 贮 图 形 的 有 关节 上 。 而 @ 则 是 用 一 条 列 的 二 进 制 编 
码 集合 来 措 述 图 形 的 轨迹 ， 存 贮 的 是 整个 轨迹 及 其 移动 的 路 
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径 〈 一 系列 二 进 制 编码 的 集合 7。 按 参数 来 生成 造型 ， 实 际 上 
包括 两 个 方面 ， 其 一 ， 设 计 交 互 绘制 图 形 〈 用 HLOTL 语 
名 实现 ) 作为 人 与 机 器 的 交互 模块 ;其 二 ， 需 计 设 HPLOT 
所 画 的 图 形 与 造型 生成 的 转换 模块 ， 其 思路 为 : 

“。 交互 指出 关键 坐标 。 

。 提示 图 形 ， 用 HPLOT 和 ，Y 实现 。 

“执行 转换 模块 。 \ 

“ 显示 最 终 图 形 。 

“结束 。 

有 关 转 换 模 块 的 程序 清单 见 GP 1302。 

2. 图 形 编 辑 及 其 相应 的 数据 结构 

图 形 编 辑 主 要 有 捅 入 、 复 制 、 删 除 、 修 改 、 蔡 换 。 这 些 
工作 的 完成 主要 是 人 与 图 形 的 安 互 来 实现 。: 大 对 图 形 施 形 操 
作 ， 实 际 上 是 该 图 形 的 数据 结构 的 操作 。. 

该 图 形 的 数据 结构 采用 索引 文件 的 变形 树 结 构 ， 其 底层 
结 点 的 记录 后 两 个 字 节 又 作为 插入 图 形 的 指针 ,可 用 可 不 用 ， 
最 终 形成 的 索引 衰 件 及 其 相应 的 记录 集合 日 动 按 紧 次 格式 存 
贮 ， 其 结构 见 图 1.32 所 示 。 

索引 文件 有 表 头 、 图 形 关键 字 及 其 指针 ， 其 关键 字 即 为 
该 指针 所 在 图 形 的 位 置 。 

这 种 结构 的 揪 和 入、 修改、 增加 类 似 于 一 般 高 级 语言 所 提 
供 的 随机 文件 ， 但 操作 均 在 人 AM 内 进行 ， 且 各 记录 可 按 不 
等 长 存 贮 ,理论 上 各 记录 的 长 度 为 2 个 字 节 所 存 的 最 大 整数 ， 
这 是 因为 记录 的 长 度 不 是 事先 规定 ， 而 是 随 着 图 形 的 增加 自 
动 增加 的 。 一 个 子 图 块 的 复制 占 4 个 字 节 。 因 此 该 种 结构 比 
随机 文件 要 优越 得 多 。 
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可 加 回 巴 巴巴 加 


0 _ 
忌 、、 


WIREAANAS 


LA 


ETETEGTR 
四 轧 马 马 


站 


图 了 3 
3、 删 除 
申 华 学 习 机 的 造型 表 数据 的 结构 是 实现 紧 资 格 居 排 列 
的 ， 各 造型 的 结束 标志 刺 广 进 制 为 00， 根 据 这 一 特点 "只 娶 
用 00 演 到 造型 数据 的 起 始 2 个 字 东 ， 就 可 删除 相应 的 造型 。 


第 三 节 ”通用 造 型 软件 包 2.0 版 使 用 说 明 
一 、 启动 运行 
1， 系统 配置 
中 华 学 习 机 (或 其 兼容 机 ) APPLE I，RAM 为 
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48KB ， 一 个 或 两 个 磁盘 驱动 器 ， 显 示 器 和 打印 机 。 

2. 局 动 运行 
”首先 将 造型 软件 包 系统 盘 插 入 1 号 驱动 器 ， 顺 序 打 开 主 
机 电源 及 显示 器 , 待 操作 系统 运行 完毕 后 ,屏幕 出 现 HELLO 
的 动画 演示 ， 这 时 只 要 敲 回 车 键 ， 屏 幕 上 随后 出 现 图 1.33。 


建立 国 均 

盾 西 六 < 靖 车 衣 

和 圳 ， 寺 

举 国 弄 星 辑 

实用 误 件 

单 打 BE 

第 se 有 上 DeR : 半 率 


1.33 主 菜 单 屏 幕 

基本 建立 图 表 ， 西 文 编辑 和 积木 块 均 可 生成 造型 。 建 立 
图 表 主 要 提供 了 交互 按 参数 在 屏幕 上 指出 关键 点 后 自动 生成 
具有 一 定 函数 关系 的 图 块 〈 直 线 、 圆 、 椭 圆 、 构 弧 以 及 各 种 
线 型 的 弧 段 ); 西 文 编辑 主 要 是 进行 带 图 形 西 文 的 编辑 和 一 些 
复杂 的 数学 公式 的 建立 ， 积 木 块 可 以 让 用 户 建 立 子 图 库 ， 实 
现 积木 式 拼 积 造型 ， 图 形 编辑 是 让 用 户 对 建立 的 造型 实行 动 
态 的 复制 、 增 加 、 和 替换 ， 可 方便 地 制作 图 库 ， 动 画 〈 只 要 给 
出 循环 的 起 始 值 及 终 值 ); 实用 文件 提供 了 一 些 实用 文件 -一 
压缩 图 表 ， 格 式 转换 及 整 幅 图 形 的 移动 两 幅 图 形 ， 可 打印 各 
造型 的 起 点 坐标 以 及 动画 的 起 始 值 、 终 值 等 。 

对 于 主 菜单 〈 见 图 1.33); 按 空格 键 或 “M?2” 键 ， 和 矩形 方 
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框 顺序 下 移 ， 按 “ 工 ” 键 搞 形 方 框 上 移 ,, 按 园 车 键 后 进入 扼 
形 框 的 某 一 功能 模 氮 *. 按 其 它 键 系统 不 反应 ,各 功能 模块 互 
相 独 立 ， 但 又 可 通过 主 菜单 互相 联系 结束 运行 了 后 返回 到 泽 
点 BAsSIC 语言 状态 ， 但 此 时 的 图 表 数据 文件 还 在 内 存 ， 对 
于 具有 一 个 了 动 器 的 APPLEI 吉 中华 学 习 机 ， 可 到 
包 的 系统 盘 ， 捅 从 用 户 盘 将 内 存 图 表 数 据 存 蕉 ss， 

二 、 建 立 图 表 

从 主 菜单 进入 该 功能 模块 后 屏幕 显示 :“ 是 开始 建立 图 表 
吧 ?(N )”， 这 时 按 回 车 键 或 其 它 键 ， 表 示 从 第 一 个 造型 开始 
建立 图 表 并 出 现 图 1.34， 让 你 交互 地 通过 键 | ， 】，M 或 二 


图 1.34 移动 - :图 1. 35 建立 图 
标记 表 菜 单 . 
确定 访 造 型 的 ， 起 始点 坐标 。 待 光标 位 置 确定 好 以 后 按 
“Q " 键 退出 回 到 该 记 模 块 的 菜单 见 图 1.35; 如 内 存 有 图 表 式 调 
入 外 存 图 表 ， 继 续 增 加 造型 ， 则 进入 该 功能 模块 后 ， 请 按 
4 N ” 键 。 
1. 继续 
从 主 菜单 进入 该 模块 后 屏幕 显示 “继续 吗 ?CN ) " 按 N 键 ， 
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表示 取消 该 造型 的 编号 : 然后 返回 主 菜单 命令 〈 图 1.35), 按 
站 于 鱼 信 六 它 键 后， 退 到 图 1.34,， 证 你 确定 该 造型 的 起 始 位 

; 按 4Q9? 键 退 到 荣 单 命令 (图 1.35)53 

2. 矢量- 

-进入 该 模块 ， 屏 寄 右 侧 显 示 如 下 的 命令 ， 图 1. 36 所 示 。 
只 要 融 上 相应 的 字符 ， 就 可 实现 4 个 方向 的 画 量 和 不 画 矢量 
的 移动 “ 

按 了 键 即 由 后 向 前 逐 点 地 删除 造型 。 


上 I 
了 下 
人 广 .| + 人 
- 有 芭 


1.36 矢量 移动 标记 

地 他 屏 昔 上 出 现 癌 格 为 10 的 网 点 。 碘 人 键 将 所 有 和 型 
快速 显示 在 屏幕 上 。 殴 Q 键 返回 到 菜单 命令 〈 图 1.35)。 

3. 直线 

进入 该 模块 ， 先 要 按 回 车 键 输入 直线 的 起 点 ;这 时 只 要 
按 I、J、 开 或 三 键 ( 按 GRE -F 慢 速 移动 ， 按 一 次 下 键 后 
进行 累加 ,连续 地 按 F 可 快速 的 移动 ) 将 光 点 移 到 适当 的 位 置 后 ， 
按 回 车 键 输入 第 二 点 ， 可 看 到 直线 的 生成 。 通 过 该 模块 能 生 
成 任意 方向 的 直线 或 多 个 线段 组 成 的 蓝 型 。 
* 4。 造 贺 

进入 该 模块 后 屏幕 出 现 图 1.37 的 菜单 ， 其 中 实 圆 为 实 线 
圆 ， 虚 圆 为 虚线 圆 ， 点 圆 为 点 划 线 圆 。 进 入 实 圆 ， 走 圆 或 点 
圆 模块 后 ， 只 要 输入 两 点 ， 第 一 点 为 该 圆 的 起 点 ;第 二 点 为 
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该 圆 圆周 上 的 一 点 。 第 一 点 与 第 二 点 的 连 线 需 在 一 水 平 线 上 ; 
然后 递 时 针 方向 生成 造型 ， 其 造型 的 起 点 与 终点 重合 后 ， 蔽 
Q 键 退出 ， 在 不 退出 图 1. 36 模 块 的 条 件 下 ， 可 生成 同心 图 的 
造型 输 久 方法 同 前 。 

5， 贺 弧 和 

进入 该 模块 后 屏 区 出 现 图 1.38 所 示 菜 单 ， 其 中 实 弧 为 实 
线 圆 弧 ， 虚 弧 为 虚线 团 弧 ， 点 弧 为 点 划 线 圆 弧 。 


图 1.37 造 圆 菜单 图 1.38 造 弧 菜 单 

进入 实 弧 ， 虚 弧 或 点 弧 模块 后 ， 只 要 输入 3 点 ， 进 入 该 
模块 的 第 一 点 的 输入 前 请 不 要 移动 光标 ， 第 一 点 为 圆 弧 的 中 
心 ， 第 二 点 为 圆 驱 的 终止 方向 ， 图 1.38 所 示 。 然 后 按 逆 时 针 
生成 造型 。 若 想 接着 造 另 一 段 绝 ， 请 将 该 弧 第 一 点 位 置 与 前 
段 弧 的 终止 位 置 重合 〈 见 图 1. 39 虚 线 )。 


第 二 点 


第 二 点 
2A AN =、 


1.39 圆 弧 三 点 的 输入 


-进入 该 模块 屏幕 出 现 图 1.40。， 其 中 实业 为 实 线 椭圆 ， 虚 
椭 为 虚线 本 圆 ， 点 枯 为 点 划 线 兢 图。 进入 其 申 任 一 模块 后 *。 
只 要 输入 三 点 (进入 该 模块 的 第 一 点 输入 前 请 不 要 移动 光标 )， 
第 一 点 为 顶 圆 的 中 心 ， 第 二 点 与 第 一 点 的 距离 在 模 线 上 的 投 
影 的 绝对 值 为 该 酉 圆 的 长 轴 ， 第 三 点 与 第 一 点 距离 在 纵 轴 上 
的 投影 的 绝对 值 为 该 权 圆 的 短 轴 ， 见 图 1. 41。 所 生成 的 椭圆 
造型 起 始点 和 终止 点 。， 均 为 该 枯 圆 的 申 心 。 
6。 椭 弧 
进入 该 模 二 后 屏幕 册 现 图 1. 40， 其 实 弧 为 实 线 本 弧 虚 
弧 为 虚线 酉 弧 ， 点 弧 为 点 划 线 椭 驶 ， 进 入 其 中 的 任意 模块 后 
只 要 输入 6 点， 前 3 点 代表 该 顶 弧 所 具有 的 枯 圆 形状 (图 1.41)， 
三 点 的 输入 方法 与 生成 圆 绝 时 输入 方法 相同 ， 如 图 1.39 所 
示 。 


1.40 燃 圆 菜单 1.41 椭圆 3 点 输入 
7. 辅助 
进入 该 模块 后 屏幕 出 现 图 1.42。 
(b 存盘 
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进入 该 命令 ， 屏 幕 显示 “存盘 吗 ?(N )”， 按 入 键 返回 
辅助 菜单 ， 缺 省 项 屏幕 左下 角 出 现 4Enter Name of 


这 时 只 输入 相应 的 名 字 并 加 驱动 器 号 即 可 将 内 存 图 表 存 
入 工 号 或 2 号 驱动 器 后 返回 辅助 菜单 。 

名 复制 

进入 该 模块 后 屏幕 出 现 “ 请 输入 造型 % 输 入 相应 造型 缩 
码 后 ， 屏 幕 即 闪烁 出 现 被 选 造型 ， 且 出 现 “ 是 这 个 造型 吗 ? 
(N )” 按 N 键 则 重新 选择 ， 按 其 它 键 屏 幕 出 现 
图 1. 34, 可 动态 地 移动 被 选中 的 造型 加 以 复制 ; 


按 kE " 键 复 制造 型 , 按 CTREL- 删除 被 复制 的 总 电 | 
造型 ， 该 复制 主要 是 配合 造型 的 建立 ， 对 于 同 ”复制 
样 的 子 图 型 ， 只 要 建立 一 个 造型 ， 其 它 可 进行 各 
复制 处 理 ， 十 分 方便 。 复 制 后 ， 按 “Ay>” 键 好 “” 户 出 


可 顺序 地 出 现 所 复制 的 图 型 。 按 “Q ” 键 即 返 图 1.42 辅助 
回 到 辅助 菜单 图 1.42。 菜单 

@ 拓 序 

进入 该 模块 后 ， 按 回 车 键 或 空格 键 就 可 依次 看 到 所 有 的 
造型 ， 按 一 次 键 出 现 一 个 造型 ， 不 看 时 按 &“Q " 便 返回 图 1.42 
的 菜单 。 

@ 移 型 

进入 该 模块 后 屏幕 出 现 “ 请 输入 造型 ”%, 输入 相应 造型 纺 
后 ， 屏 幕 上 闪烁 出 现 被 选中 的 造型 ， 且 出 现 “是 这 个 造型 
吗 ?CN )。” 被 选中 的 造型 可 动态 地 改变 起 始点 坐标 。 

@) 删 型 

进入 该 模块 后 屏幕 显示 “请 输入 造型 2, 输入 相应 的 造型 
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编码 后 ;屏幕 出 现 “ 是 这 个 造型 吗 ?(N )”， 被 选中 的 造型 即 
被 删除 。 做 这 项 工作 需 十 分 小 心 ， 一 般 情况 下 ， 在 文件 存盘 
后 再 做 这 项 工作 。 

三 、 西 文 编辑 : 

从 主 菜 单 进 入 该 功能 模块 后 屏幕 显示 次 是 开始 建立 图 表 
吗 ?(N )”， 这 时 克 回 车 键 或 其 他 键 表示 从 第 一 个 造型 开始 奸 
立 图 表 ， 并 出 现 图 芒 34,* 读 你 选择 起 输 点 坐标 ,: 待 光标 位 置 
确定 好 以 后 按 Q 键 退 到 该 模块 的 莹 弟 坟 菜单 命 伶 见 图 1.43, 
如 内 存 有 图 表 ， 请 按 党 环 7 键 : 


了 3 
虹 
村 


汤 科 建 起 灌 淮 团 
帮 胸 料 民 本 如 半 周 


移 标 ， 
了 退出 
卫 % 有 


1.43 西 文 编辑 菜单 1.44 西 文 菜 单 

1. 继续 、 矢 量 、 复 制 、 删 型 、 移 型 〈 同 前 ， 略 ) 

2 西 文 

进入 该 模块 ,屏幕 出 现 图 1.44。， 

人 大 写 

进入 该 模块 ， 菜 单 消 失 ， 只 要 歼 相 应 的 键盘 字符 ， 即 可 
显示 该 字符 (大 写 及 其 它 字 符 、 数 字 ), 融 CTREL- 再 可 删除 
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该 字符 。 按 CTRL-& 栈 退出 到 图 1.44。 

OO) 小 写 

进入 该 模块 ， 药 单 消失 ， 操 作 同 @， 这 时 显示 的 小 写字 
太 及 其 它 字 符 、 数 字 。 


@@ 移 标 
E 【 
+ 6 人 10 
S < 一 -2 J 了 < 一 朴 
1 1 
D M 
全 


1.45 ” 移 标 标记 

进入 该 模块 ， 屏 幕 出 现 图 1.45， 该 模块 的 功能 主要 是 确 
定 通 过 不 画 矢量 移动 来 确定 造型 终点 的 位 置 y 其 中 按 瑟 、S 、 
F 、D 键 将 移动 6 个 不 画 矢 量 ， 按 工 ， 丁 ， 开 ，M 键 只 移动 
一 个 不 画 矢 量 。 

四 、 积 木 志 

从 主 菜单 进入 该 功能 模块 后 屏幕 显示 ,是 开始 建立 图 表 
吗 ?CN )”， 这 时 效 回 车 键 或 其 它 键 表示 从 第 一 个 造型 开始 建 
立 图 表 ， 并 出 现 图 {.34， 让 你 选择 起 始点 坐标 ， 待 光标 位 置 
确定 好 以 后 ， 按 Q 键 退 到 该 模块 菜单 命令 ， 见 图 1.46。 

,积木 

进入 该 模块 ， 屏 幕 的 左下 角 出 现 command， 命令, 可 答 
入 以 下 的 命令 ; 

C 久 下 ALQOG:， 查看 磁盘 文件 名 。 

BLOAD: 将 各 木 块 调 入 内 存 ， 

MX: 同 “ 移 标 ”命令 ,确定 下 次 被 积 造型 位 置 。 
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CDNT:， 继续 下 一 个 造型 积木 

AD :， 继续 积木 

了 B: 由 后 向 前 逐次 删除 被 积木 的 造型 。 

Q: 退出 该 命令 。 

CATALOG、BLOAD 为 磁盘 操作 命令 , 奔 进 入 积木 
命令 时 , 需 将 积木 文件 调 入 内 存 ， 其 积木 文件 的 长 度 为 4 
K 正 ， 可 以 在 建立 图 表 ， 积 未 块 或 西 文 编辑 状 态 下 直接 生成 
的 图 表 ， 也 可 以 是 实用 文件 经 压缩 以 后 存盘 的 图 表 。 如 积木 
文件 超过 4 KB ， 后 面 将 被 忽略 ， 当 超过 8 K 昌 ， 将 冲破 坏 
内 存 图 表 。 在 使 用 时 需 加 以 小 心 ， 具 体 的 使 用 方法 见 后 面 的 
实例 。 


[ 钴 线 ] 

积 木 

矢 量 直流 
训 制 

各 [下 平 -| 
仔 盘 

全 型 良 出 

移 型 

1.46 ”积木 块 菜单 图 1.47 图形 编辑 菜单 


五 、 图 形 编 辑 
从 主 菜单 进入 该 模块 后 ， 屏 幕 出 现 “ 是 开始 建立 图 库 吗 ? 
(N )”, 按 回 车 键 或 其 它 键 ， 屏 幕 出 现 图 1.47， 如 不 是 开始 建 
立 图 库 ， 请 键入 N 键 。 
1.。 继续 
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继续 下 一 个 图 形 的 建立 ， 进 入 该 模块 ， 屏 幕 出 现 “ 继 续 
吗 CN ) 风 按 回 车 键 从 下 一 个 图 形 开 始 ， 按 N 键 表示 图 形 编 
码 仍然 处 于 上 一 个 图 形状 态 。 

2. 复制 

进入 该 横 块 ， 屏 幕 出 现 “ 请 输入 造型 2, 输 入 相应 的 造型 
编码 后， 屏幕 闪烁 地 出 现 被 选中 的 造型 ， 同 时 左下 侧 显示 
“是 这 个 造型 吗 ? (N ) 风 输入 回 车 键 ， 屏 幕 出 现 图 1. 35 及 被 
选中 的 造型 ， 按 “下 ” 表 示 复 制 成 功 并 在 同一 点 显示 一 个 
“+ " 字 光 标 , 按 C 个 R L-H 可 删除 被 复制 的 造型 , 按 CTREL- 
F 表示 慢 速 移动 ， 按 “F ”表示 累加 ， 连续 按 “F ” 键 可 实 
现 快速 移动 ， 按 “A ” 键 表示 看 所 有 复制 的 图 形 。 

3， 和 替换 

进入 该 功能 模块 以 后 ， 屏 幕 出 现 “ 请 输入 图 形 ”, 输入 相 
应 的 图 形 编号 并 回 车 ， 屏 幕 显 示 相 应 的 图 形 ， 同 时 屏幕 左下 
角 显 示 “ 是 这 个 图 形 吗 ?(N )”% 如 替换 造型 不 在 显示 图 形 中 
进行 ， 请 按 N 键 ， 重 输 图 形 编码 。 和 否则 按 Q 键 ， 屏 幕 图 形 消 
失 ， 这 时 按 任意 键 ， 屏 幕 显示 被 复制 的 造型 ， 如 果 替 换 其 中 
某 一 造型 ， 当 显示 该 造型 时 〈 每 按 一 次 键 只 显示 一 个 造型 )， 
请 按 Q 键 ， 这 时 屏幕 显示 “请 输入 造型 ， 同 时 显示 是 这 个 造 
型 吗 ?(N )”， 按 回 车 键 或 其 它 键 后 可 将 被 选中 的 造型 替换 图 
形 中 相应 的 造型 ， 并 通过 I，J，M，L 4 个 键 可 将 该 造型 移 
动 到 相应 的 位 置 。 

4。 看 形 

进入 该 模块 ， 屏 幕 顺序 显示 复制 的 图 形 ， 理 论 上 图 形 个 
数 可 建立 2 个 字 节 所 存 的 最 大 整数 ， 但 由 于 中 华 学 习 机 内 存 
有 限 ， 复 制 的 图 形 数据 主要 了 节 决 于 图 形 的 复杂 程度 ， 一 个 造 
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型 的 复制 占 ( 全 字 节 拉链 可 退出 该 模 朱 返回 区 单 见 轩 !.47。 
5. 存盘: 
泛 入 该 模块 (操作 同 前 ， 略 ), 但 可 将 复制 图 形 信息 以 及 
图 表 一 块 存盘 ， 并 加 后 级 “。TAB”。 存 盘 时 未 指明 驱动 器 
号 码 ,自动 存 入 2 -号 驱动 器 。 
在 图 1.29 状 态 于 按 .“C ” 键 ， 菜 单 消 失 ， 同 时 屏幕 左下 . 
角 出 现 “Enter colorC 1，2，3，4，5，6，7or0 
>: 输入 相应 的 代码 , 可 得 到 不 同 的 颜色 , 并 返回 菜单 ( 图 1.47) 。 
六 、 实 用 文件 
:进入 该 功能 模块 , 如 内 存 没有 图 表 * 屏幕 
[两 玉 计 入 ] 左下 侧 显示 Ent er Name shape-table: 2 
国 责 压 六 ”输入 相应 名 字 后 进入 菜单 售 令 , 见 轩 1. 48 。 
格式 埋 挤 1， 用 户 文 尾 : 
侵 ， 出 进入 该 模块 后 ， 屏 幕 下 侧 显 示 :“ 正 nter 
图 1.48 :实用 Name of 11sers 风 用 户 可 以 建立 自己 的 分 
文件 菜单 菜单 或 者 建立 自己 的 子 图 库 的 管理 程序 ， 然 
后 以 US 了 上 Ril， US 了 上 R2， 9 ER3 这 三 个 训 件 名 的 任何 一 
个 存 入 造型 软件 包 盘 中 ， 如 果 用 户 没 有 建立 ， 输入 任意 名 
字 会 自动 返回 菜单 。 
进入 该 模块 ， 随 后 屏幕 左下 角 显 示 “Enter Name of 
C-blocks:”% 输 入 相应 的 名 字 后 ， 并 给 出 相应 驱动 问号 ， 则 
I 或 正 号 驱动 器 工作 ， 将 原 有 图 表 压 缩 存 贮 在 用 户 盘 上 ， 进 
行 完 毕 后 返回 到 实用 文件 菜单 ， 经 压缩 存 贮 的 图 表 自 动 以 
C "为 后 缀 ,下 次 作为 积木 文件 使 用 时 , 需 在 原来 名 字 后 面 
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加 上 后 缀 “。Cy?”。 

3. 格式 转换 

在 建立 图 表 、 西 文 编 辑 、“ 积 木 块 生成 的 造型 同时 也 生成 
一 幅 图 形 ， 如 果 要 保留 且 还 要 继续 复制 图 形 。 请 进入 格式 转 
换 模块 ， 稍 后 又 返回 到 药 单 命令 ， 见 图 1.49， 进行 格式 转换 
后 再 进入 图 形 编辑 时 请 按 N 键 ， 并 进入 继续 模块 表示 从 第 二 
幅 图 形 开 始 。 

七 、 打 印 输出 

使 用 本 功能 模块 之 前 请 接 通 打 印 机 电 
源 〈 没 有 打印 机 可 将 绪 果 打 印 在 屏幕 上 )。，[ 瑟 亢 至 入 ] 
进入 该 模块 后 如 果 内 存 有 图 表 就 直接 进入 :打印 图 形 
菜单 ， 否则 左下 角 显 示 “ 正 nter Name 打印 指针 
of S hape-table ”输入 相应 名 字 后 先入 耻 出 
菜单 命令 ， 见 图 1.49。 

1， 打印 仅 标 1.49 打印 
进入 该 命令 后 屏幕 出 现 各 个 造型 的 起 清单 
始点 坐标 ， 按 Y 键 再 回 车 就 接 通 打 印 机 ， 打 印 屏幕 出 现 过 的 
各 造型 的 起 始点 坐标 ,: 然后 返回 到 菜单 ， 按 其 它 键 则 不 接 通 

打印 机 返 回 到 菜单 ， 见 图 1. 49。 

2. 打印 图 形 

进入 该 命令 ， 屏 幕 显示 复 制 的 图 形 ， 按 了 键 接 通 打印 机 
峙 贝 说 幕 上 显示 的 图 形 ， 按 其 它 键 ， 显 示 下 个 图 形 ， 按 Q 键 
直接 返回 到 菜单 命令 〈 图 1.50), 对 没有 格式 转换 成 没有 进行 
图 形 编 辑 的 造型 表 ， 将 不 会 显示 图 形 。 

3. 打印 指针 

进入 该 模块 ， 可 将 各 个 图 形 编号 及 其 相应 的 首 指针 打印 
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出 来 ， 便 于 动 夯 的 制作 以 及 图 形 的 保留 。 

和 八 、 简 单 实例 
例 1, 已 知 一 个 造 弄 表 有 下 列 2 个 造型 ， 见 图 1.50(a)、 
(b) ， 试 通过 积木 次 将 这 两 个 造型 合并 为 一 个 造型 ， 页 见 图 
f.50(C ) ( 注 : 第 一 个 造型 的 终点 在 中 心 ， 而 第 二 个 造型 的 
起 点 在 中 心 。 

步 又 : ， 

[ 号 驱动 器 放 入 系统 盘 ， 答 入 名 字 如 “AAA7”( 名 字 随 意 
取 ), 或 将 图 表 压 缩 存 盘 。 

进入 积木 块 中 的 积木 模块 后 出 现 : 
COMMAND:， BLOAD 凡 
Enter Name， of C-blockss AAU 
Command， Conts/ | 


Ca) 《(b) 


1.50 两 个 造型 的 拼 积 
请 输入 造型 w 
是 这 个 造型 吗 ?CN ) ww 
Commanmd，AD v 
请 输入 造型 2 
是 这 个 造型 吗 ?C(N ) w 
注 ， 横 线 上 面 的 字符 或 数字 是 用 户 输 入 的 相应 内 容 。 
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例 2, 已 知 一 个 造型 表 有 任意 两 个 造型 ， 已 按 A。C 存 存 
用 户 盘 上 ,; 现 有 上 个 造型 表 ， 其 中 有 另外 2 个 造型 ， 要 求 将 
这 两 个 造型 表 合 并 为 1 个 造型 表 ， 并 组 成 相应 的 图 形 。 
步骤 : 
中 进入 积木 块 的 积木 模块 
Sommand， BLOADY 
Enter Nam e of C-bleck，A .CVv 
command cont 。/ 
请 输入 造型 1 v 
command， CONT 
请 输入 造型 2 v 
是 这 个 造型 吗 (N) 以 
command:，， 2 
@ 进 移 型 或 复制 命令 
利用 移 型 命令 将 新 造型 表 中 的 各 造型 进入 交互 式 动 态 移 
动 来 组 成 您 所 需 的 图 形 。 
图 存盘 
取 名 为 AB 。 
例 3, 已 知 上 面 做 好 的 图 形 ， 现 需 脱离 造型 软件 包 ， 在 浮 ， 
点 BAS IC 状态 下 调用 该 图 形 
方法 1 
四 立即 方式 
] BLOAD AB,D2? 
] BRLIN BTABLE, D1 
@ 间接 方式 
10 A$=CHR$〈4) 
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20 PRINT Ad$i<BLOAD 入 B，D ?29 
30 PRINT A 和 $ ;4BLOAD BTABLE， D12 
40 CALL 8192 
50 了 END 
方法 2 和 
@ 在 浮 点 BAS IC 状态 FP 人 冯 6 或 冷 启动 造型 软件 包 
盘 
Q@ 进入 打印 功能 模块 屏幕 出 现 - 
”请 输入 名 字 AB ww 
进入 打印 坐标 模块 打印 出 : 
SHAPE X0 Y0 
388 90 
106 48 
82 61 
130 78 
@ 在 浮 点 BA IC 状态 下 编程 为 
10 Ad 和 $=CHR$ (4) 
20 PRINT A$ixBLOAD AB，D 2? 
30. FORT = TD14;, 痕 攻 AD 祥 (IT)，Y (CT)， 
NE 玉 工 
40 HGR 2 
50 POKE 232， 四 POKE 233，96 
60 HCOLOR =3:ROT=0:SCALE=1 
70 上 上 OR- JI=1 TO+4 
80 DRAW TI AT X(I) YY(CT)，NEXTT 
90 END 


100 DATA 88，91，106,48，82，61，130,78 

例 4, 已 知 在 图 形 编 辑 状态 下 建立 的 几 幅 图 形 ， 现 需 脱离 
造型 软件 包 顺 序 显 示 及 拷贝 它们 。 

步骤， 

@ 调 入 该 图 表 务必 加 上 后 级 . TAB 

@ BRUN DRAWSG, D1l 

当 按 任意 键 顺序 显示 ， 在 接 通 打印 机 后 ， 按 P 键 可 拷贝 
屏 帮 显示 的 图 形 。 

九 、 注 意 事项 

@ 经 过 实用 文件 压缩 存盘 的 只 是 造型 表 文 件 首 地 址 不 
定 。 在 调用 该 造型 表 时 ， 务 必 加 上 调用 到 内 存 的 地 址 。 经 过 
压缩 存盘 的 造型 表 不 能 再 附加 新 的 造型 ， 只 能 供 积 木 或 图 形 
册 辑 使 用 ， 否 则 会 出 错 。 

四 机 器 若 出 现 死 锁 , 随 热 启动 机 器 或 按 恢 复 键 ， 原 来 的 
图 表 没 有 丢失 ， 可 继续 建立 造型 。 勿 冷 启动 〈 关 机 ), 除 非 您 
不 需 内 存 中 的 图 表 。 
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第 二 篇 
实用 图 形 管理 与 技巧 


第 一 章 初步 知识 


本 章 作为 第 二 篇 的 引导 , 介绍 一 些 初 步 知 识 , 既 有 BASIC 
语言 部 分 ， 也 有 6502 机 器 语言 内 容 。 主 要 有 机 器 语言 子 程序 
的 存 贮 和 调用 ， 形 式 多 样 ， 图 形 撒 家 的 方法 ， 应 有 尽 有 ;高 
分 辩 率 图 形 的 绘制 ， 技 巧 性 高 :图形 数据 的 拟 合 处 理 ， 实 用 
性 强 。 


第 一 节 “机 器 语言 子 程序 的 存 迪 和 调用 


在 了 AS IC 程序 中 常常 用 到 一 些 机 器 语言 子 程序 ， 它 们 
是 怎样 存 贮 的 ， 又 有 哪些 调用 方法 ? 

例如 ， 在 显示 屏 上 输出 26 个 英文 字母 ， 最 简便 的 方法 是 
编制 一 个 B AS IC 程序 ， 见 程序 GP 2101。 

:0 台 二 白 己 

2 FRINT CHR 囊 《人 有) 和 

3 二 有 + 工 
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4 TIF 后 = 30 THEN 20 
oO END 


DRUN 
ABCDEFGHIJKLMNOPQRSTUVWNXYzZ 


程序 GE2101 明 显 的 缺点 是 占用 内 存 较 多 。 
若 改 用 机 器 语言 编制 ,只 需 13 个 字 节 , 见 程 序 GP 2102。 


基 了 CO。 SOCL 


osoo- ”Ap9 Cl DA 。 # 事 Cl 
OO3O2-- 20 ED FD JSR 下 FDED 
CSOS 一 189 CLC 

0O3SODCG 一 69 避 l ADC 井 种 O 〇 1 
OO3SOS- C9 DB CMP # 划 DB 
ODSOA 一 DO F4 BNE $D302 
OCSOC- 60 RTS 


在 程序 GP 2102 中 ， 机 器 语言 代码 存 贮 在 和 $0300 开 始 的 
- 段 地 址 和 中 , 首先 将 A 的 代码 G 1 放 进 累加 器 ， 调 用 输出 一 个 
字符 子 程序 ， 其 入 口 地址 为 $SFDED， 然 后 清 进位 位 ， 累 
如 器 内 容 加 1, 判 断 是 不 是 $DB.〈Z 的 代码 是 $DA)， 不 是 
号 转 $0302， 否 则 返回 。 其 中 BNE 是 相对 寻 址 的 转移 指令 ， 
化 Z 标 志 为 0. 时 转移 ， 操 作 码 为 D0， 操 作 数 是 相对 地 址 , 又 
称 偏 移 量 ， 其 值 计 算 方法 是 : 

$030A + 下 2 + 偏 移 量 = 生 0302 

结果 偏 移 量 是 负 值 $ 0 A , 需 采用 补 码 表示 , 即 F6(256 一 
Im 和 246, 相 当 于 $F 6 )。 

现在 ， 我 们 以 机 器 语言 子 程序 GP 2102 为 例 ， 介 绍 存 贮 
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和 调用 门廊 尖 。 
、 用 CALEL 指令 
在 监控 状态 下 ， 接 入 机 器 语言 子 程序 CF 2102， 返 回 
BASIC 后 , 取 名 GP2102 并 存盘 BSAVE GP 2102， Af 


思 


0300,.L$0D。 


#3SOO。 SOC 


DSSOoO- 869 Cl 2D0 ED FD 18 69 01l 
0309- C9. :DB Do F6 60 


@D -直接 从 键盘 键 Xs 
] CALEL 7682/ 
@ 编制 一 个 BAS IC 程序 并 运行 
”10 CALL 768 

220 END 

执行 上 述 两 种 方法 , 均 应 先 将 机 器 语言 子 程序 调 入 内 存 ， 
即 BLOABD GP2102。 

二 、 用 POK 已 指令 … 

将 机 器 语言 子 程序 代 砍 转换 成 十 进 制 数 , 并 放 在 DATA 
语句 中 ， 然 后 用 CALIL 指 令 调用 。 即 编制 一 个 BASIC 程 
序 GP 2103。 


10 FOR I = 品 TO 12 
人 READ X 

So PFDKE 76 + 工 ,X 
40 NEXT II 

3 导 生 LL 76B 
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4 们 局 ND 
2 DATA 169,195, 32.237,253,24,105 
,1 201,219，208，246,96 


URUNI 
ABCDEFGHIJKLMNOPQRSTUYWXYZ 


、 用 BEOAD 剑 信 ， 
让 要 刍 和 BLOAD GPR 如 先 w， 然 后 用 CALL 768v 
调用 ， 也 避 以 用 程序 SP 3104 调 用 


10 D 丰 = CHR 叫 (4) 

30 PRINT 8 本 3 BLOAD GP2102” 
3 CA 76E 

寺 必 ”END 


四 、 用 取 命 令 
@ 源 程序 ( 见 GP 2105) 


10 PRINT “CHR 雪 《4)3"BLOAD GF2102" 


20  POKE 1013,76: FORKE 1014,0: POKE 


、 TS 也 


DRUN 
ASCDEFGHIJKLMNOPQRSTUVYWNXYzZ 


@) 在 监控 状态 下 按 入 
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X3E 5: 4LC 00 03 以 
返回 BAS IC 后 : 

] BLOAD .GP2102v 

] &v 

辐 源 见 程序 〈 见 GP 21067 


- 作 

ID0 FORI=OTO 12:， READ X: POKE 
768:-t+ 3 X3_ NEXT 

20 “DATA 169， , 153, 32。237,253S，24， 105 
,1 ,201 ， 219 ,: 2086: 246，96 

x0 POKE 101S。76: POKE 1014,0: PDKE 
10t5，S 

40 “CALL 768 

so END_ 


人 @@ 键入 机 器 语言 ， 如 程序 SGP2107， 并 以 GF 2107 存 盘 
备用 。 在 监控 状态 下 运行 。 


ba 


osobo- 4C 03 03.69 Cl 20 ED FD 
0308- 18 69 091 C9 DB DO F6 60 
ABCDEFGHTDkENMNDPQRSTUvwxyz 


回 也 可 以 键入 机 器 语言 子 程序 ， 并 以 GP 2108 存 盘 ， 既 
可 以 在 监控 状态 下 运行 ， 也 可 以 在 BAS IC 状态 下 运行 。 

DSSOD- 和 中 1 20 ED FRR 1 各 9 局 圭 

OOXO3- CC93 DB- DO 下 各 - 友 台 4 OO 3 


十 己 口上 间 日 
ABCDEFGHIJKLMNGPBRSTUVNXYz 
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这 
Le 
ABCDEFGHIJKRLMNOFQRSTUWWXYZ 


在 BAS IC 程序 中 ， 当 遇 到 “人 &” 号 开头 的 命令 时 ， 会 
自动 跳 转 到 $ 3 F 5 去 执行 机 器 语言 子 程序 。 通 常 在 $3F 5 一 
$3F7 中 存放 JMP XXXX (一 般 情 况 下 是 4C.58 FF )， 
因此 改变 $3F 6， 下 3 F7 中 的 内 容 ， 就 可 以 跳 转 到 改过 内 容 
的 地 址 上 去 。 人 例如， 程序 GP2105 中 安排 3 个 POKE 瑟 指令 
POKE 1013，76，POKE 1014，0， POKE 1015, 3 就 
相当 于 : 吊 3F 5 一 4C ”00 ”03， 从 而 转向 $0300 开 始 的 存 
贮 空间 去 。 

五 、 设 置 在 REM 语 名 中 

对 于 不 太 长 的 机 器 语言 子 程序 ， 可 以 将 其 放 在 BASIC 
程序 的 R 正 M 语 句 中 。 这 是 因为 人 EM 语 名 是 非 执行 语句 ， 
BAS IC 解释 程序 碰 到 它 会 自动 跳 过 ， 而 不 访问 它 的 具体 内 
容 ， 因 此 ，R 已 M 之 后 的 内 容 ， 可 以 不 按 语 法 规则 存放 。 将 
机 器 语言 子 程序 伴 入 REM 语句 中 ， 就 可 以 将 它 和 BASIC 
程序 连 在 一 起 ， 两 者 同时 存 贮 和 调用 。 

为 此 ， 必 须 首 先 算出 机 器 语言 的 首 地 址 。 ， 

为 方便 计 ， 可 把 R 刁 M 作 为 BASIC 程序 中 的 第 一 个 语 . 
铝 。 众所周知 ， BASIC 程序 区 的 首 地 址 是 从 书 0861( 即 2049) 
斤 始 的 ， 然后 是 2 个 字 节 的 链 指针 〈 下 行程 序 首 地 址 ， 低 址 
在 前 ， 高 址 在 后 )，2 个 字 节 的 本 行 行 号 〈 低 位 在 前 ， 高 位 在 
后 ) 及 1 个 字 节 的 R 眉 M 语 句 〈 本 行程 序 只 有 1 个 语 和 ， 其 
内 部 代码 为 $132)， 这 样 ， 就 可 算出 机 器 语言 子 程序 的 入 口 
地 址 ; 
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2049 十 2 二 .2 十 1 一 2054 向 806) 


因此 ,BAS IC 程序 中 调用 机 器 语言 子 程序 应 用 CALL 
2054。 、， 


对 于 文中 开头 提 到 的 机 器 语言 子 答 序 GP 2102， 可 按 下 
述 步 又 组 织 : 


在 有 近郊 $806 开 始 健 入 机 器 语言 子 程序 
GE2102。 。 

在 BASIC 状态 下 ， 将 上 述 机 器 语言 子 程序 取 名 
GP 踢 09 并存 人 摄 中 。 1 

. 健 入 BASIC 程序 GP 2110: 


10 REM ARCDE123S45478 
20 CALL 2054 


' 调 GP 2109 的 机 器 语言 子 程序 : 
BLOAD GP 2109 / 


“ 再 LIST 卢 ASIC 程序 GP2110， 结 果 为 : 

10 REM SPEED= TO LG i - RND 
20 CALL 2054 
整个 过 程 清 单 : 


DBo6e- Ah9 Cl 
08o8- 20 ED FD 198 69 01 C9 DB 
0810- DO F6 60 
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凑 / 
DiBSAVE GP2109 .A806 ,L 贡 D 


ULOAD GPFelT OO 
Li 让. 工 驴 下 


1 REM ABCDE12S45678 
0 CALL OO54 


DJBLOAD GPF2109 ? 
LTST _ 
10 REM SPEED= TO  LG ii - RND 


2 CALL 2054 

URUN 

ABCDEFGHIJKLMNOPQRSTUYWNXYZ 

可 见 机 器 语言 子 程序 已 装 入 第 10 行 的 R 下 M 语 名 中。 ， 

“最 后 再 把 该 程序 存 入 盘 中 ， 供 以 后 使 用 。 
”采用 上 述 方法 组 织 程序 时 ， 存 放 在 R 已 M 语 句 中 的 假想 
数据 个 数 ， 应 大 于 或 等 于 机 器 语言 子 程序 的 长 度 (本 例 是 13 
个 字 节 ， 可 以 放 13 个 字符 ， 也 可 以 按 入 13 个 空格 ), 同 时 ， 在 
机 器 语言 子 程序 编制 中 应 防止 $ 00 出 现 ， 否 则 BASIC 解释 
系统 会 误 认为 是 程序 结束 ， 而 作出 错误 的 处 理 。 

六 、 用 字符 串 方式 存 贮 
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可 以 编制 一 个 BAS IC 程序 ( 见 GP 2111) 。 


100 KK 村 = "3S003:69 Cl 20 ED FD 18 69 
0Ol C9 DB DO F6 60 N D8236G" 

110L = LEN (K 叫 ) - 

120 FOR TI = 1 TOL， POKE 5tl + IT， 
ASC ( MID 蔬 〈(K 蔬 , IT,1)) + 128 

130 NEXT 工 

1403 CALL 一 144: .CALL AXAo8 

150 “END 


LIRUN 
ABCDEFGHIJKLMNOPQRSTUVYWXYZ 


程序 GP 2111 的 优点 是 不 必 将 机 器 码 转 换 成 十 进 制 数 ， 
而 是 把 机 器 语言 子 程序 作为 BASIC 字符 串 的 形式 赋 给 
K 书 中 ， 再 用 循环 的 方法 , 将 机 器 语言 子 程序 的 每 一 个 字符 ， 
转换 成 负 ASCII 码 ,并 送 入 从 $0200 开 始 的 第 二 页 监控 下 
的 键盘 缓冲 区 ， 再 调用 键盘 扫描 子 程序 (CALL 一 144) 来 
回收 送 入 其 中 的 信息 ， 从 而 建立 机 器 语言 子 程序 ， 因 此 时 仍 
处 在 监控 状态 下 ， 为 了 返回 BASIC 状态 ， 在 .字符 串 K$ 
的 最 后 加 了 一 条 D823 监 控 命 令 ， 最 后 只 要 在 程序 中 安排 
C ALEL768 调 用 即 可 。 
、 修 改 某 些 指针 
在 BASIC 程序 的 结尾 处 〈3 个 全 0 字 节 ) 以 后 单元 ， 
存放 机 器 语言 子 程序 ， 而 把 程序 中 变量 首 指针 (在 $69， 必 
6 A 单元 中 查 ) 和 程序 尾 指针 (从 $AF ，$ BO 单元 中 查 )， 
设置 在 机 器 语言 子 程序 之 后 ， 这 样 ， 用 SAVE 命 令 存 入 磁 
盘 时 ， 能 把 BSAIC 程序 和 机 器 语言 子 程序 一 并 存 入 ， 而 
用 LOAD 命令 时 ， 又 把 它们 同时 装 入 内 存 。 显 然 ， 这 样 组 
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织 的 程序 可 以 减少 访问 磁盘 的 次 数 。 
例如 ,- 对 文中 开头 提 到 的 例子 ， 可 以 用 下 述 方法 组 织 ; 
“。 健 入 B ASIC 和 程序， 
10 CALL ?768 
20 END 
在 监控 状态 下 ， 可 以 看 到 它们 的 存 贮 格式 ; 


10 CALL 768 
269 END 


DCALL-151 
#geot.Sli 


oBol- 0A 08 08 .00 8C 37 3S6 
0808- 8 .00:10-08 14 00 80 00 
“10 09 .980 : 


从 机 9801 开始 ， 各 地 址 看 贮 内 容 说 明 如 下 ， 

$0801 一 0A，- 下 行程 序 首 地 址 低位 

$0802 一 08;， 下 行程 序 首 地址 高 位 

书 0803 一 0 A;， 本 行 行 号 低位 ， 行 号 10 

囊 0804 一 003 :本 行 行 号 高 位 - 
$0805 一 8 C， 本 行程 序 第 一 语句 CALEL ， 内 码 是 
8 全 

$0806 一 37* 字符 7 的 内 码 是 37 

$0807 一 365 字符 6 的 内 码 是 36 

$0808 一 38; 字符 8 的 内 码 是 38 

书 0809 一 00; 00 为 本 行 结尾 标志 
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$08 0 A 一 10; 下 行程 序 首 地 址 低位 

$08 0 B 一 08; 下 行程 序 首 地 址 高 位 

$08 0 C 一 14; 本 行 行 号 低位 ， 行 号 20 

$08 0 D 一 00; 本 行 生 号 高 位 

$08 0 下 一 80; 本 行 语句 P N D 的 内 码 

书 08 0 下 一 00; 本 行 绪 束 1 

. 至 于 机 器 语言 子 程序 ， 我 们 可 以 放 在 下 0818 开 始 始 的 单 
元 存放 ， 即 在 监控 状态 下 ， 从 蔬 0818 开 始 ， 连 续 输入 机 器 语 
言 子 程序 : 


马上 日 1 全 一 认 9 Ci 2 ED FRR 1 SS 白 呈 7 马 ! 
0820- C3 DB Do F6 如 


“。 显然 ， 原来 BASiC 程序 中 调用 桥 器 语言 的 入 口 地 
址 应 该 改变 。 因为 原来 存 贮 在 书 0300 开 冶 单 元 的 机 器 语言 子 
程序 ， 应 用 CALL 768 调 用， 而 现在 机 器 语言 子 程序 ， 已 
改 存在 $0818 单 元 , 相当 于 十 进 制 数 2072， 所 以 应 改 为 CALL 
2072 。 即 ; 

10 CALL 2072 
20 END 
在 监控 状态 下 ， 可 以 看 到 对 应 上 述 BASIC 程序 的 内 
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DBoi- DB DB 08 00 86 32 30 
Boe- 37 32 00 11 08 14 00 8r 
BtoO- oo co oo 06o Do no DO Do 
8B18- 89 Ci 2D ED FD 18 69 0l 
neo0- P93 DB DD Fa 60 
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从 中 可 以 看 出 ， 书 0801 的 内 容 由 书 0 A 改 为 $ 0 B ， 这 
是 因为 下 行程 序 的 首 地 址 改变 了 (由 于 C AL2072 比 C ALL 
768 多 了 一 个 字 节 的 存 贮 ) ， 其 它 还 有 几 种 改动 ， 读 者 可 以 从 
对 比 中 看 到 存 贮 形式 的 改变 。 

“最 后 应 将 机 器 语言 的 结束 地 址 《本 例 是 书 0824), 放 入 
$AEF、$B 0 和 $69、 书 6A 中 ， 即 将 $AF 、 书 B 0 和 
$69、$6A 改 为 指向 书 0824, 方法 是 在 监控 状态 下 按 入 

AEFE:， 24 08 

69， 24 08 一 

至 此 , 全 部 修改 指针 组 织 程序 的 工作 完成 返回 B ASIC 
状态 后 ， 将 程序 存 入 盘 中 ， 以 后 只 机 用 LOAD “文件 名 ” 
调用 即 可 。 

综 上 所 述 ， 上 述 7 种 方法 ， 各 具 特 点 。 使 用 时 ， 可 根据 
需要 ， 灵 活 选用 。 用 C ALL 指令 的 方法 最 简单 ， 但 必须 了 
解 机 器 语言 的 存 喧 地址 ,- 才能 正 稍 调 用 。 如 果 不 知道 存 贮 地 
址 4 可 以 先 将 机 器 语言 子 程序 ( 盘 片 中 有 B 记 号 的 ) 调 进 内 
存 ;， 再 从 世人 A72 (43634) 和 上书 AA73 (43635) 中 查 到 ， 即 
用 了 PRINT-PEEK(43634)+PEEK POKE(43635) 
关 256 /， 然 后 用 C ALL 《地 址 》 调 用 。 用 POKE 命 令 ， 其 
缺 点 是 要 将 机 器 语言 子 程序 代码 转换 成 十 进 制 数 ， 优 点 是 直 
接 运 行程 序 即 得 结果 。 用 BL OAD 命 令 的 方法 要 用 D O S 
命 专 ;这 是 常用 的 方法 ， 但 对 于 图 形 信息 ， 仅 用 CALL 命 
令 还 不 行 ， 必 须 加 显示 图 形 的 程序 段 。 用 了 & 命 令 的 方法 ， 比 
较 巧 妙 ， 机 器 语言 调 进 内 存 后 ， 按 人 & 号 并 回 车 即 可 。 用 设置 
在 R EM 语句 中 的 方法 ， 将 机 器 语言 子 程序 嵌入 R EM 语句 
中 , -和 BASIC 程序 同时 存 贮 、 同 时 调用 。 用 字符 串 方式 
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存 贮 的 方法 ， 其 特点 是 不 需要 将 机 器 语言 子 程序 转换 成 十 进 
制 数 ， 这 在 图 形 资料 信息 的 处 理 中 十 分 有 用 ， 即 使 对 图 形 十 
分 复杂 ， 占 用 内 存 很 多 〈 如 8K ) 的 信息 ， 显 示 速 度 也 极 快 。 
用 修改 革 些 指针 的 方法 ， 采 用 修改 某 些 指针 ， 从 而 更 好 地 组 
织 程序 ， 减 少 对 磁盘 的 磨损 ， 节 省 时 间 ， 这 样 处 理 ， 对 程序 
较为 固定 又 经 常 使 用 的 ， 比 较 好 ， 一 些 游戏 程序 ， 常 用 此 
法 。 


第 二 节 “图形 搬家 的 方法 


搬家 叉 称 移动 ， 它 是 指 下 面 3 种 情况 ; 
“ 数据 资料 或 图 形 资料 从 内 存 中 的 - 一 自 区 域 搬 至 另 一 段 
存 贮 区 域 。 
. 机 器 语言 子 程序 从 内 存 的 某 个 空间 报 至 另外 一 个 
介 。 
“ 内 存 和 磁盘 之 赣 信 息 的 相互 移动 和 搬迁 到 新 的 地 址 。 
信息 〈 泛 指数 据 资料 、 图 形 资料 等 ) 的 搬移 可 以 用 
BAS1ICLC 程 序 控制 ， 也 可 以 用 机 器 语言 子 程序 控制 ; 可 -以 
在 BAsIC 状态 下 进行 ， 也 可 以 在 监控 状态 下 实现 。 
一 、 内 存 和 磁 蔓 玄 间 图 形 资料 的 搬家 
例如 ， 在 内 存 中 已 有 一 个 图 形 资料 ， 它 存放 在 离 分 辩 图 
形 第 一 页 内 , 今 将 其 转移 到 磁盘 中 ,可 执行 :BS AV 正 文件 名 ， 
A 书 6000, 荆 蔬 2000, 此 时 盘 片 中 的 图 形 资料 存在 地 址 $6000 
到 $7FFEF 中 。 若 将 上 述 图 形 资料 搬 至 内 存 中 高 分 辩 第 二 页 
内 ， 用 DOS 命令 比较 方便 ， 即 ; 
I10 D$=CHR$ (4) 
20 PRINT D$“BLOADy” 文 件 名 ，A 书 4000 
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二 、 巾 存 中 图 形 资料 的 搬家 

例如 ， 将 高 分 辩 图 形 第 一 页 信息 搬移 到 第 二 页 ， 最 简便 
的 方法 是 执行 监控 下 的 “搬家 ”命令 M (MOV 正 ), 利 用 它 
来 移动 一 批 图 形 资料 相当 方便 ， 且 速度 很 快 ， 即 

] C ALELEL 一 151 

尖 4000<<2000 . 3 下 FEMV 

三 、 用 BASIC 程序 控制 ， 

例如 ， 磁 盘 中 存放 在 A 书 2000 一 A$3FFFEF 中 的 图 形 ， 
' 执 行 BAS IC 程序 GP 2112 ， 即 可 自动 进行 调 盘 、 搬 家 、 显 
示 、 清 屏 的 全 部 操作 。 此 村 内 存 中 既 有 原 有 盘 中 第 一 页 的 图 
形 ， 又 有 内 存 中 第 二 页 的 图 形 。 


10 D 市 = CHR 惠 《 咎 ) 
20 “INFUT "NETER PICTURE FILE: 合 1 种 " 
; 个 1 店 
30 PRINT D 蔬 ?3"BLOAD" ,有 1 囊 
40 GOSUB 930 
SO _ CALL 一 144. 
am PORKRE  - 16299.0: POKE -~- 16304 
5D: PORKE -~- 16297,0: POKE  - 
16302:D 
7D FOR I = 1 TO 2000: NEXT I 
8O TEXT : HOME : END  :: 
3D 不 囊 = 400032D000 .SFFFM N DB823G6? 
100 FOR I==1 TO0 LEN (K 蔬 ): POKE 
全 slili+I，AGSC ( MID 蔬 (K 和 ,TIT,1)) 
+ 128: NEXT 1I 
110  POKE 72.0: RETURN 


四 、 调 用 机 器 语言 搬家 子 程序 
在 中 华 学 习 机 CEC-I 的 ROM 中 ( 同 APPLE 机 一 
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样 ), 有 一 段 机 器 语言 子 程序 ( 见 程序 GP 2113), 它 的 功能 是 
专 管 “ 搬 家 ”的 。 其 起 始 地 址 在 .由 FE 2C 中 ， 未 地 址 是 
书 F E35 ， 该 程序 还 调用 另 一 个 机 器 语言 子 程序 :( 见 程 序 
GP 2114)， 被 调用 的 机 器 语言 子 程序 GP 2114， 存 镁 :在 
$FCB 4 一 $FCC 8 中 。 

引导 D O S. 后 ， 在 监控 状态 下 , 键入 上 述 两 个 地 址 范围， 
会 看 到 两 个 机 器 语言 各 自 的 存 贮 内 容 。 


人 源 程 序 ( 见 GP 2113) ” 

FEZC-~ Bl SC LDA ( 囊 SC) ,Y 
FE2SE~- 9 42 STA ( 囊 42) ,Y 
FESO- 20 B4 FC JSR 。 志 FCB4 
FESS- 90 F7 BCC 中 FE2C 
FE3SS- 60 RTS 


2 源 程 序 .( 见 GP2114) 


FCB4--  EG6 42 INC 囊 42 
FCB6- ”DO 02 BNE 车 FCBA 

FCBSB- ”EGG 43 INC  。 囊 43 ， 
FCBA- ”AS5 SC LDA 车 3C 

FCBC- 5C5 手 CMP  。 事 了 E 

FCBE-~ ”AS5 3SD LDBA 车 3D 

FCCO- ES SF SBC 熙 SF 

FCC2- 。 EG6 SC INC  。 丰 3C 

FCC4-  00 0 BNE 局 FCC8 

FCC6- ES 3SD INC  。 丰 SD 

FCCB- 60 RTS 


上 述 两 段 机 器 语言 子 程序 GP2113 和 GP 2114， 实际 上 
是 执行 地 址 3 < 地 址 1. 地 址 2 M 的 移动 命令 。 为 此 ， 必 须 把 
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相应 地 址 存 贮 在 有 关 单 元 中 ， 即 ; 

书 42 ， 存 放 地 址 3 的 低位 

$43: 存放 地 址 3 的 高 位 

$ 3 下 :存放 地 址 2 的 低位 

书 3FF : 存放 地 址 2 的 高 位 

$ 3 C ， 存 放 地 址 1 的 低位 

4 3:D : 关 放 地 址 1 的 高 位 

然后 执行 FF 匡 2C G ”w， 在 返回 BASIC 状态 后 键 入 
CLAA-4684。 
_ 例如 ， 忽 将 高 分 辩 第 一 页 的 信息 移 到 第 二 页 ， 则 在 监控 
下 : 

关 42: 00 40v 

X3C:00 20 FF 3Fv 

XxFE2CGJ/ 

应 该 指出 的 是 ， 在 执行 上 述 操作 前 ， 应 在 BASIC 状 
态 下 ， 将 图 形 资 料 调 入 高 分 辩 率 第 一 页 。 
为 了 省 去 在 监控 下 操作 的 步 又， 亦 可 用 BASic 程序 
来 处 理 ， 不 仅 速度 快 ， 南 且 十 分 方便 。 例如 ， 将 调 进 内 存 高 
分 辨 第 二 页 的 图 形 ， 撤 至 第 一 页 并 在 第 一 页 显示 ， 可 执行 程 ， 
序 aGP 2115。 

@@ 源 程 序 ( 见 GP 2115 ) 

尘 

10  POKE 60,0: FORKE 61 64 POKE 62 

,255: POKE 63,95 


< POPFE 如 0 PROKE 67 3S2 
CALL 一 406 
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45  PQORE  -- 16630403 POKRE 一 16297 
OO PFOFE 一 16302 03 POKERE 一 
1 各， 吕 

oO FOR I 三 2DOOD NEXT II: TEXT 

eco HOME : END 

当然 在 执行 本 程序 GP 2115 以 前 , 必须 调 入 有 关 图 形 ， 
例如 BLOAD 文 件 名 ，A 和 4000vw。 

五 、 机 器 语言 子 程序 的 搬家 

在 实际 工作 中 ， 有 时 候 需要 将 有 用 的 机 器 语言 子 程序 ， 
从 内 存 的 一 段 地 址 搬移 到 内 存 的 另 一 一 段 地 址 去 ， 或 者 将 几 段 
机 器 语言 子 程序 ”合并 成 一 个 机 器 语言 子 程序 ， 这 都 属于 机 
器 语言 子 程序 的 搬家 。 但 是 ， 这 种 搬家 必须 注意 改动 某 些 关 
键 地 址 ， 否则 不 仅 皂 家 突 误 ， 而 且 面 角 全 非 ， 程 序 无 法 执 
行 。 

下 面 我 们 通过 对 上 过 民 O M 中 的 机 器 语言 搬家 于 程序 的 
搬家 ， 说 明 机 器 语言 子 程序 搬家 的 方法 及 注意 问题 。 

例如 ， 要 求 将 程序 GP 2113 和 程序 GP 2114 合 并 成 一 个 
程序 ， 并 攻 至 书 6000 开 始 的 一 一 段 区 域 中 ， 然后 以 MOV 屯 -1 
存盘 。 

全 部 操作 按 下 述 步骤 执行 : 


OOOoO<FE2C。FESSHM 
ooOoA<FCB4.FCC8BM 


#O005:0A 60 


200 


xBSAVE 
DBSAVE MOVE-1 6$6000Q,L 蔬 20 
DCALL 24576 


六 、BAS IC 语言 的 搬家 程序 

程序 GP 2116 是 一 个 用 B AS IC 语言 写 的 搬家 程序 ， 马 
可 以 将 高 分 辩 第 一 页 的 图 形 数 据 ， 搬 至 第 二 页 去 。 

人 源 程序 ( 见 GP 2116) 


10 FOR T = 768 TO 811 

20 READ X . 了 

xs0 PEBKE IT,X 

40 NEXT TIT 

50 DATA 169,0,133S,961133,98，169，6 
4,1353,99,169,32,13535,97,160.0， 
177， 36,145,98,200， 192 

60 “DATA :22551206,247。165, 99 ,24:105 
,1,1S3,99,165， 957,24,105,1,133- 
.97,201,64,144,227,96 

70 END 


为 了 检验 程序 GP 2116 的 搬家 本 领 ， 可 加 以 下 程序 段 : 


人 DTD 世 = CHR 韦 (4) 
4 INPUT ENTER: PICTURE NAME "3 K 囊 
白 “PRINT D 蔬 ;3 "BLOAD "长 蔬 "全 甩 2000” 
,62 HGR2 : POKE  - 16302,0 
“65 HCQOLOR=7 
64 FOR IT = 1 TO 500:， NEXT 1 
65 TEXT : HOME 


这 样 ， 调 进 内 存 的 图 形 〈 在 高 分 辨 第 一 页 面 ), 经 过 10 一 
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60 的 搬家 ， 图 形 转 移 到 第 二 页 面 去 ， 执 行 62 句 显示 图 形 ， 再 
经 64 句 延迟 一 段 时 间 ， 恢 复 文本 、 清 屏 ， 最 后 结束 。 

值得 提出 的 是 ， 运 行程 序 GP 2116， 可 以 在 监控 下 看 到 
一 个 对 应 上 述 B AS IC 搬家 程序 的 机 器 语言 子 程序 GP 2117， 
而 且 十 分 有 趣 的 是 ， 这 段 机 器 语言 子 程序 同样 具有 上 述 搬家 
的 功能 。 


Doo- 969 00 85 60 85 62 A9 40 
Oo08- 85 635 A9 20 85 6 AO 00 
ofO- Bl 6 91 62 C8 CO FF Do 
0 二 ~ F7 AS 6 18 9 01 85 63 
be 5 6 18 69 01 85 61 C9 
0 49 930 ES 6 


G@ 检验 SP 2117 机 器 语言 搬家 功能 的 方法 

。] RUN GP 2116 yw 

。] NEWV 

。] BLOAD 图 形 文件 名 ，A$2000y 

。] CALL768U 

。] POKE 一 16299,0，POKE 一 16304, 0 
P OKE 一 16297,0，，POKE 一 16302, 0 


第 三 节 高 分 辩 率 图 形 的 绘制 


下 面 几 个 程序 ， 都 是 由 高 分 辨 率 作 图 语句 绘制 的 图 象 。 
一 、 图 象 绘制 和 打印 
程序 GCP 2118 是 一 个 少女 的 图 象 〈 见 图 2.1)， 运 行程 序 
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后 ， 首 先 输入 尺寸 S12Z 上 上， 如 取 1，2， 或 3， 再 送 入 颜色 
COLOR 代 码 ， 在 1 一 7 之 间 ， 则 屏幕 上 显示 出 不 同 颜色 ， 
不 同 大 小 的 人 像 ， 当 人 像 完 全 显示 后 ， 回 到 文本 状态 ， 如 要 
打印 ， 则 按 “Y2” 并 回 车 ，, 反之 按 任意 键 结束 。 


程序 GP2118 清 单 。 


5 “PRINT 。， PRINT :PRINT :PRINT : 
PRINT 

10，。 INPUT "” SIZE="5U 

20 ”INPUT ” COLOR="5C 

100 N = 口 ，PRINT :PRINT ，PRINT : 
PRINT 

200 HGR2 

:205 “HCOLOR= C 

220 READ X 

230 IF X“ oOTHEN N = N+ 1: GO0TO 

220 

240 IF X >》36 THEN FOR XXx = 1 TO 

2000:，NEXT ， TEXT :HOME : GOTO 
10000 
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”READ 二 


HPLOT U # X + SOIN TOY # UU + 
s5ONIN=NT+ 1! 


MUSIC N， 10 


6G0TO 220 


多 10.。5， 20,-1， 10 


DATA ”22.0,-1,9.4,22.8,-1 ,9， 
2S,-1,8.6， 23,-1， 9。 2， 22.9,-1,9 
.9,22.7， 

DATA -1， 10，2 22。 = 1， 10,22.3，,- 
1,9.7,22:2,-1y9.6,21.8,-1,10. 
6,20.8, -1,11i,20。 6,-1 


DATA 11.4,20.7， 一 1 1t。S520.。7 


-1 15,20.893-1，14.9， 21.S， 一 Li 
4。 9， 21。 日 ,一 1 
DATA 14.9,22.8, -1 14.7，22。 9 
-114.5， 24*; - -1514.2 24.5， 一 1 1 
.4,24。 -日 ,- -1 1413.1,25。8 
DATA 一 1， 12,3, 2 右 .9 ,一 1， 11。7， 民 5 
71 itlosSs2ototoco2cy ty 9 
。Io2G.7 
DATA 一 9。7， 27。 0,-1,10，27.5， 
-1 10.。3， 27. 8 -1， 10。 7 28. < 一 1 
1t1.0< 旨 .7 一 ltli.429.1 
DATA 一 1 11。 8 23。 2 24.4，29.4， 
-1 12,22.7， 24:71 29.6,-1y12. 6 
22， 7:,25,29.8, 一 ! 
DATA 12。 日 , 22,24.6,29.4,=-1，12 
.8B,21.4,24. 1,29,-1,12 . 吕 ,21-.2， 
23.8,289.4,-1 
DATA 13 20.9，23.4，28, 一 1，12。 8 
,20.7,23,27.4,=1,12.8,20.7 ,22 
7 2O- 日 :一 
DATA 12.7，21+,22， 26.3， 一 1 过 与 
,25.7 ,一 1 ， 12。 2,25.3,-1,11.8,24 
.4,-1,11.5,23.2 


DAT 一 1 11。 之 ,之 <。 1 .一 1 ， 10 。 瑟 23 


。 与， 一 t 幻 。 7,23.7，-1， 9。 4， 2 本 9 一 


,924-S,-1.8.6,24.7 
DATA -1,8.2,25.1,-1,7.8,25.5 
-1,7.4,25.9,-1,7,26.3, 16.6 
,26.7,-1,6.2,27.1,-1 


_ DATA 号 .全 27.5, 一 1 与。S 27。8， 一 


1 与 。 二 2 全 。 1 e 一 1 9 4。 9 28。 人 入。 一 1 才 。 白 


3O60 


1O0OO00 


10QodlO 


,28.7,-1,4.35,29.0,-1 
DATA “4.1,29， 2,-1,s.9， 29。4，- 
1 .S,7T,z9.6,-1.3.5,.29.6,-1,5.4 
29.9,-~1,5.S,30。 0,-1 
DATA Su. 2, 30。 1 -1 40 

TINPUT > DO YOU PRINT ? "9A 


IF A 囊 = “Y+ THEN PR# 13: POKE 


1913，2: PRINT CHR 蔬 〈17) 


10020 PR# 
1o0o30 END 


二 、 折 线 图 形 绘制 
程序 GP 2119 可 以 完成 折线 图 形 的 绘制 ，20 句 4 会 Y 轴 ， 
40 句 绘 X 轴 ，50 一 95 句 点 轴 上 的 坐标 ，100 一 200 句 点 Y 轴 
上 的 坐标 。 全 部 数据 〈X，Y 值 ) 放 在 390 一 400 名 的 DATA 
语句 中 ， 用 290 一 360 句 的 循环 完成 各 点 的 绘制 工作 。 
, 程 序 GP 2119 清 单 。 


二 C 
全 局 
全 局 
己 马 


HGR2 : HCOLOR= 7 

HPLOT 5,180 TO 279.180 
HPLOT 10,185 TO 10,6 

FOR X = 30 TO 270 STEP 20 
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ao HPLOT Xx,teo TO X,175S 

95- NEXT X 

100 FORY = toD TO 20 STEF -20 

ti10O HPLOT 10,Y TO 1S5,Y 

200 NEXT Y 

290 N = 当 0 

310 DIM X(S50) ，Y71SO) 

SS X(O) = 16:YIO) = 180 -- 20.44 

S20 FORK = 1 TON * 

331 READ X1K) ,Y( 长 ) 

335 IF XCKE = 一 1! AND- YIK) = ~ 
1 THEN FOR I = 1 TO 3000:，， NEXT 
: TEXT 2 END 

340O XI(K) = CCXK 4 ttO+ 40 关 日 一 
7 

3S50 Y(K) 1980 一 下 人 KD) 关 允 

355 HPLOT 路 人 K) YI(K) -TO XK 一 1)， Y 
(K 一 本 ) 

3S640 NEXT 长 

390 DATA_ 0.05,5.1lO0.20,30。72 

400 DATA OO. 57.5.20,1.017.23.74，1 
“47,6.41t1.55,0.39,1.6,7。 68， 玫 
.67，S 汪 。 1 1 76， 2 99,1. 日 日 纪 :7: 
4，2.03r4， 1 2 ,1 要 ,11 ， 白 ，2。 28， 与 。 
96,2.352,1.09,2.42， 14。 1 ， 2 .SS 

_ SS.9,2。 了 2， 3 ,和合 ;2。 5 备 ， 1 等 -全 。 o8 
.2.86，S .1B, 3.77， 3.28,S.83 

SO DATA -1 ,一 1! | 

支行 结果 见 图 2.2。 。 


三 、 汉 字 图 形 绘 制 

程序 GP 2120 是 一 个 BASIC 程 序 ， 它 用 高 分 辩 作 图 语 
句 绘 出 “南京 大 学 ” 4 个 大 字 。 该 程序 设计 思想 新 颖 ， 难 度 
较 大 ， 但 从 中 可 以 学 会 用 高 分 辩 作 图 语句 绘制 汉字 的 方法 。 
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完整 的 程序 清单 见 GP 2120， 下 面 是 运行 结果 〈 见 图 2.3)。 


图 2.3 


程序 GP 2120 清 单 。 


1 HGR2 
2 HCOLOR= 卫 
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3S0 FOR I= 10TO 60 

403 HPLOT TI 3Q TO T 40 

SO HPLOT 10 + 9.2 # TI6og TO 10 + 
间 。 妆 其 ToT7O 

Go HPFLOT 6 -Oo2+# Isy6oo TO 6o - 
- 间 。 吕 并 T ,470 

7 人 HPEOT OZ 其 ITIL+ 与 6o TO DO.7 关 
TI + 5 79 于 

8 HPLOT 22.5 寺 避 .3S5 # Il1lO TO 
2 St+O-35 关 T， 工 之 名 

390 “HPFLOT 22.5 + 0。 35 共 : 了 ， 135 了 

2 号 + 0O.35 # IT145S 

35 HPLUQT 4 了 3 + Qi1 # I.,16e@ TO 43 十 
吕 .1 XI17BO ” 

100 X 一 15 + 口头 工 

1 已 HPLOT Xy67 一 Do 入 工 TO-X 十 -六 
0 47 -DO.7 关 了 

120 HPLOT 27.5 + Do2# It2oO TO 2 

口 。 二 区 T, 16O0 


NM 


9 


130 23.7 + 0.45 #t TI,78 TO 2 
OO.lS # T,102 
14 电 - 


5 9. 15 工 ， 78 TO 35 + 


150-- NEXT 了 


岂 哉 HPLOT IT 和 80， 4 T0 “89550 

220 “RELOT 19C + 0。 25 ， 关 25; TO 10 
的 了 + 昌 。 25 ， IT,35 

230 “HPLOT 如 4 二 0.2#f TO TO 84 + 
口 。2 区 工 110 

寻 4 虽 和 FL 日 T. 126 -~ 口 。 习 头 TD TO 126 

-0.2 # Ttlo， 

2502 -HPLOT 8B85 + 0.8Be +#+ Il10o0 TO 85 + 
0.8 #+ T,1llo 

260 HPFLOT 85 + 0.B #+ TI:60 TO 85 + 
口 .日 T,7O0 
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270 :HPFLOT 1090 + 0.2 3# Ito TO 10 
+oDO.2a #t IT,170. 
27S HPLOT 1OG + 人 .2 x# IllioO TO 10 
全 十 口 。 避 其 IT， 170 
290D HPLUT 95 二 避 。 2 XIylo0 TO 35 + 
站 .2 基 T1ZO 
285 Xi = (Bo+ 0O2+x I):YL = 0.015 


其 了 其 了 ， _ 
290 HPLOT Xl,tl64 -YL TO Xi + 9,1 
7 一 YL 


295 “HPFLOT 130 一 0.21 # Il62 - Yi 
TO ti2t -0.21 #+ TI168 -~- Yi 
300 HPLDOT FT + 150,45 TO I + 150,5 

s10 Y1 =. 90.05 者 - 工 其 工 

sS20 HPLOT 160 + 0。 
15SoO + Oo-4 基 工 

s40 “HPLOT 208 - 0， IT,160 - Y1 T0 

152 =- 0Q2425: IT L7D - Y1 

SS50 “HPLOT 168 + 0.264 # TI,25 TO 16 

-+O.26 + TI,45 

3S60 NEXT IT 

s569 FOR IT = TO 50 STEP 0.1 

503 X1 = 220. + 0.2 #.I3SYL1 = 25 + 0 

本 其 工 

505 X2 = 270 ~ 0.26 #+ TI:Y2 = 25 + 

Go3O 其- 这 

510 HPLOT Xl,YI1 + 4 TG Xt + 9 

s20 HPLOT xX2,Y2 + 4 TO X2 - 9 

530 “HPLOT X1 + 1S55Y1 +t4TOX 
24,Y1 

550 HPLOT 220 + 日 .2 I,S7 TO 220  - 
+ 0 人 # TY93 

560 ”HPFLOT 229 + TI,S7 TO 220 + I,6 


3x#T,166 - YL1 TO 
170 - Y1 
有- 夫 
了 
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565 “HPLOT _279 -DO.2 #+ I,S57 TO 270 
一 避 。 其 工 9 节 

S7a HELG 和 和 231 + 0.4 #+ I,8SO TO 231 - 

+O0O.4 共 II， 299 


号 9OC X- 252 -0.35 + I:YS = 80 + 
其 工 


9 HPLOT X 汪 Y 二 TO XS + 10,YS 
coo “HPLOT 240 +oO2A Ilto TO 24 
O +D.2 HA Is 170 " 
lo HPLOT 220 + Il2s TO 220 + I， 
1 到 ! 
620 HPLOT 232 + 0.25 + Il60 TO 2 
32 + 0.25 #t TIT,170 
OO NEXT II 
值得 提出 的 是 程序 GP2120， 用 作 图 语句 写 汉 字 ， 是 一 
个 新 的 尝试， 程序 的 编制 水 平 较 高 ， 应 仔细 阅读 ， 才 能 理 
解 。 


第 四 节 图形 数据 的 拟 合 过 程 


通过 计算 机 绘制 一 般 的 工程 图 样 及 一 些 比较 有 规律 的 曲 
线 ， 相 对 于 复杂 曲面 轮廓 和 一 些 不 规则 的 曲线 来 说 ， 要 困难 
些 。 但 是 ， 可 以 通过 数据 拟 合 较 好 地 解决 所 谓 数据 拟 合 
就 是 刊 用 曲线 对 给 定 的 一 组 数据 进行 插值 和 到 近 的 问 是 。 

我 们 这 里 省 去 复杂 的 原理 和 严格 的 数学 证 明 ， 而 是 提供 
一 个 有 价值 的 拟 合 曲线 实用 子 程序 。 这 样 ， 用 户 只 要 输入 不 
同 的 图 形 数据 , 而 由 计算 机 自动 处 理 复杂 曲线 的 绘制 问题 。 

图 2.4 是 用 程序 GP 2121 绘制 的 ， 对 于 一 个 完整 的 连续 
线段 构成 的 图 形 ， 程 序 GP 2121 是 一 个 常用 的 方法 。 它 把 一 
个 飞机 轮廓 曲线 基本 上 勾画 出 来 了 ， 飞 机 数据 资料 全 部 放 在 
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DATA 语 名 中 。 但 是 我 们 看 到 图 形 不 美观 ， 线 条 不 光 诊 ,加 
上 包括 APPLE [在 内 的 所 有 兼容 机 〈 也 含 中 华 学 习 机 )， 

即使 在 高 分 辩 率 作 图 下 ， 由 于 分 类 这 还 不 定 估 识 ， 上 图 形 的 折 
线 突出 的 现象 几乎 是 不 可 避免 的 。 


图 2.4 ? 

程序 GP 2121 清 单 。 

IO HGR2 : HCOLOR= 7 

slO DIM X 59) Y (50) 

习 S XIO) 二 2237 站 (OO) 二 1105 

320 FOR 芭 = 1 TO 5O 

330 READ X (长 ) ， 《K) 

3S4D IF XIK) = -1 AND YIKE》 = 一 
1 THEN FOR 1.= 1 TO SO0OD0D: NEXT 
TI: TEXT : HOME : END : 

35S5 HPLOT X(K) 191 -YIK) TO XI(K 
1),191 -YIK 一 1) 

360D NEXTK 

390 DATA 221 165,218,165,204, 147， 

， 191130, 162131 52, 1S8, 33，12 
oOllt,49. 41410370 100,88 

400 DATA 102 102 104 111 111，120， 
118.20Dy lt ,21B11lSB23S0O127，2 
20， 136,237， 165 

SoD DATA -1 ,一 1 


图 2. 5 是 程序 GP 2122 绘 制 出 来 的 ， 和 图 2.4 相 比 ， 


线条 明快 ， 光滑 美观 。 主要 进行 了 对 图 形 数据 的 拟 含 处 理 。 
程 序 GP 2122 清 单 。 


工 局 
妇 癌 


HGR2 
HCOLOR= 7 


SO EL = 8B:E2 = 


人 4 吕 


司 人 炙 问 
READ xl 

IF Xi1 《“ 500 THEN READ Y1,X2sY 
2 G0SUB .1000: 60T0 50 


白 员 
7 


号 心 
9 

1 人 
局 


1 0) 


1 4 吃 
与 口 


1 名 癌 侣 、 


1 1 
1020 


1 吕 汪 
已 二 () 
1 局 纪 OO 


了 总 白 癌 


1 人 7 人 


212 


READ X2,Y2 


= X2:2YO. = Y2- \ 


= 221:Y = 165 


HPLOT TO xl191 一 Y 


END 
DATA 221165,219165,204, 147， 
1913130,1642,131 

DATA 52743989， SSr1280 ,Litt ,48， 
103.70,100:88 

DATA _ 192 102 ,104,1tli1lil 
DATA 120， ,也 200， 118,218 
DATA 118,230， 12 27220,136,237， 
165 ,与 GO 

xX = XOosY =YoO 

HPRLOT. xX ,191 - Y 


ALL= 一 2#Xo+t2+El) 闪 X 


2=XOo- (2+El)#Xt+ (1 + 
E1 + E2) # X2 
Bl = 一 2#YOo+ (2+ El 关 Y 


人 YO- (2+ El)#YLTA+ (1 + 
EL + E2) 关 Y2 

FOR I = OO TO 1 STEP .025 
G=1+ELXId++ E2Z 基 工 基 工 


计 


1989 一 (XO AtXx I++ A2 基 工头 I 
人 :和 6: 

1099 Y 至 : CCYO@ 十 - -Bi 兴工 十 B2 基 工 其 工 
2 


日 : 


1100 HPLOT To xv 191 - Y 
tl110 NEXT 
1120 RETURN 


“35 
值得 指出 的 是 ; 浇 用 绘图 仪 刍 出 公 拟 各 后 后 的 曲线 ， 画面 
将 更 加 美观 ， 线 条 非常 光滑 ， 没 有 往 何 一 点 不 连续 感 。 
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第 二 章 图 形变 换 


图 形变 换 包 括 图 形 移动 、 放 大 、 缩 小 、 旋 转 、 剪 辑 等 方 
面 内 容 , 它们 被 广泛 运用 到 计算 机 图 形 学 的 各 种 应 用 程序 中 。 
本 章 主要 介绍 图 形 移动 、 放 大 、 缩 小 、 镜 像 复 制 和 简单 的 图 
形 动画 原理 和 方法 ， 并 提供 一 些 示范 程序 。 关 于 图 形 剪 辑 部 
份 的 内 容 ， 我 们 放 在 本 篇 第 九 章 中 介绍 。 


第 一 节 ”图 形 的 移动 


本 节 通 过 图 形 移动 的 实例 介绍 图 形变 换 的 基本 原理 、 
方法 及 其 实现 步骤 。 为 便于 理解 ， 采 用 BAS IC 语言 编写 程 
序 。 

图 形 移 动 的 实质 是 把 组 成 该 图 形 的 各 顶点 坐标 ， 作 如 下 
变换 ; 

XT =X +H ~ 
YT =Y +V 

式 中 X。Y 为 移动 前 图 形 上 某 一 点 的 坐标 ，XT 、YT 为 
移动 后 该 点 的 坐标 : 也 、YV 则 分 别 为 水 平和 垂直 方向 要 移动 
的 距离 。 

当 经 过 上 式 坐 标 变换 后 ， 原 来 的 图 形 将 被 移 到 一 个 新 的 
位 置 上 ， 输 入 不 同 的 参数 了 和 V ， 则 屏幕 上 将 出 现 不 同位 置 
的 图 形 〈 不 清 屏 时 )。 如 果 原 来 显示 的 图 形 全 部 清除 ， 则 保留 
在 新 的 位 置 上 的 图 形 。 这 样 ， 就 实现 了 图 形 的 移动 。 
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一 、 拢 形 图 形 的 移动 

程序 GP 2201 可 以 实现 一 个 矩形 图 形 的 移动 ( 见 图 2. 6)， 
不 论 是 原来 图 形 还 是 移动 后 的 图 形 ， 都 显示 在 同一 个 画面 上 
( 即 不 清 屏 ， 或 者 说 不 抹 除 原 有 图 象 )s 


so ONERR GO0TO' 300 

ea HGR : HCOLOR:-= 7 

7 .DIM Xi 3 Y( SO) NIL) 

SC XM = 279:YM = 191 

110 FPFN = 1:E = 0 

120 FOR IT = 1 TO 100 

13D READ XD,YD ， 

1409 FE -=E + 1 

1 5 X(FNy FF) 了 

160 YIFN,E) YD 

17D IF xD= -1 ANDYD := -1 THE 
185 

19SD NEXT I 

185 N(1) = 

1930 RERINT 

20D0 FOR 长 1 TO PN 

2 FOR 1 1 TO NIK) - 了 

220 HPFLOT XIK JI) YIK ITO XIKEJ 十 
1),YICKE JJ + 二 ) 

23D NEXT JJ: NEXT 上 

240 PORKE 一 16301 

3OD INPDT HV 

302 IFH=- -39 ANDYV = -- 33 THEI 

和 ENR 

3O5 IF 惩 xM QQR Y > YM THEN DO 

SO FORJ:= 1 TO NIC1L) 

32o XIJ) := Xi) + H 

330 YI J) = YI JI) + 

4D NEXT 7 了 


PRINT 


上 1 Fn 


二 0 .FOR 1 TO PN 

人 41 DR OO = TONIK) 一 2 

420 HPLOT XICKoJ)sY( 人 KJ) T0 X 《ks 可 十 
1)YCkJ + ， 1) 

、430 NEXT J: NEXT 怀 

千 寻 避 6DTO 避 品 

SO DATA 20， 2 昌 7 辣 ， 之 曲 ，7O 二 口 人 2 避 ， 
1 人 习 忆 ， 120， 一 ， 二 1 


这 里 给 出 一 个 运行 实例 。 、 


220，-40 
320,-40 
?2D,40 
?20，40 
2-99, -99 


UPOFEE191s， 1 


器 


程序 中 50 句 和 305 句 ， 为 防止 移动 的 图 形 超出 屏幕 范围 
而 设置 的 ， 当 用 户 输入 两 个 一 99 时 ，: 程 序 运行 结束 。60 一 180 
句 ， 是 将 原 图 所 有 坐标 依次 读 入 两 维 数组 X (PN， 正 ), 
Y CEN,， 忆 ) 中 。185 一 230 句 为 显示 原 图 象 。30 0 一 340 名 

进行 坐标 变换 ， 图 象 转移 。400 一 430 句 显示 移动 到 新 位 置 的 
图 象 。 300 句 为 输入 水 平 及 垂直 方向 要 求 移动 的 距离 。 4 多 0 句 
跳 转 到 300 句 ， 可 以 连续 输入 新 的 参数 ， 从 而 产生 不 同位 置 
的 多 幅 图 象 。 

-一 、 简单 的 动画 显示 
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若 将 程序 GP 2201 稍 作 改 动 ， 便 产生 动 画 的 效果 ， 见 程 


序 ”，2202， 其 中 302 句 HGR 命 令 是 清除 屏幕 ， 抹 除 原来 显 
不 的 图 形 ， 然 后 不 断 循环 ， 再 显示 新 坐标 图 形 ， 再 重复 抹 除 
睛 图形 ， 显 示 新 图 形 ， 结 果 看 到 画面 的 动态 变化 。 


吕 


图 2.6 图 2.7 
若 删 去 302 句 ，HGR， 则 看 到 的 是 一 个 连续 又 加 的 图 
见 图 2.7。 
修改 后 的 程序 ， 见 GP 2202_ 


50 ONERR 60TGO xsoo 
eco HGR : HCOLOR= 7 
2Z0O DIM X(t ,30)，Y(1 3SD) ,NOT 
BO xxM -= 279:YM = 191 


寻 19 FSN= 13E = 所 


120O FOR IT = 1 TO 41eo 

本 人 READ XD,YD 

140E =E 上 + 1 

150 XPN,E) = XD 

164D YIFN,E) = YD 

1 IF xD= ~ 1 AND YD= -1 THEN 
1 8 
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180D NEXT -II 


16S Nt1) = _ 
12920 FRINT :， PRINT 一 


210 FORJ = 1 TONOK) -2 

2 HPLOT 《 必 ， J)Y(KJ) TO XIFE DJ 十 
1) YICK JJ + 了 

之 也 NEXT JJ: NEXT 长 

SCI FOR T 一 1 TO TO 申 

本 和 REAE 上 ,YY 

302 “HGR- ， 

SO0S5， IF H > XM OR YY > YM THEN SO 

StO FOR J=1 TO NI1) 

3S2D X(tdJIJ) = XIJ) + H 

3S30O YI1 JI) = YI1 JI) +YV 

S40 NEXT 可 

40D FOR FF = 1 TO RN 

人 tc FORJ = 1 TO NIKE) 一 也 

42D HPLOT XiFK JU YIKJU) TO XICK IJ + 
1 YICK 二 1 ) 

3O NEXT JJ NEXT 上 

44C NEXT 了 T 工 

So0D DATA 20, 120,70,120,70,150,20， 
150,20 120, -1 -1 

6g0 DATA _ 10 -10 410 -10，10 10 ， 
,一 10，109 一 10,10， -1010， -1910， 
-10 10， -10，10， 19 


三 、 多 幅 图 形 的 移动 

如 果 希 望 在 屏幕 上 同时 显示 3 至 5 个 图 象 〈 或 更 多 ) 并 
用 交互 式 会 话 方式 ， 由 用 户 选 择 其 中 任意 一 个 图 象 ， 在 水 平 
或 垂直 方向 移动 ， 则 画面 更 加 丰富 多 采 ， 今 给 出 3 个 图 象 移 
动 的 程序 ， 读 者 不 难 加 以 扩展 ， 并 运 世 用 其 它 图 形变 换 技 巧 ， 
使 图 形 显示 更 加 贷 有 趣味 。 
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上 
200 FORK = 1 TO PN 、 
共 


程序 中 给 出 3 个 图 形 示 例 :第 一 个 图 形 是 一 个 矩形 长 条 ， 
其 图 形 轮 廓 数据 放 在 600 句 的 DATA 语 句 中 ， 第 二 个 图 形 为 
一 个 三 角形 ， 相 应 数据 放 在 700 句 的 DATA 语 句 ， 第 三 个 图 
形 为 一 个 小 动物 ， 其 图 形 数据 放 在 810 句 和 820 句 的 DATA 
语句 中 。 3 组 数据 之 间 采 用 
两 个 一 1 分 隔 , 图 形 数据 的 终 
止 符 采用 连续 两 个 一 100。 这 王 -- 
种 安排 保证 了 该 程序 与 图 形 
的 相对 独立 性 。 -一 
程序 运行 方法 比较 简 “APC ~， [N 
单 ， 用 RUN w ， 屏 幕 上 立 SN 
即 看 到 以 下 3 幅 图 形 ， 见 图 
2.8。 名 图 2.8 
然后 若 按 入 3 并 回 车 ,再 按 入 150， 一 40 凡 则 看 到 小 动物 
移动 ， 如 图 2.9 所 示 。 
若 按 入 1 并 回 车 , 再 键入 110，70 必 则 看 到 和 扼 形 长 条 移 到 
小 动物 的 下 部 ， 见 图 2. 10。 


上 一 
一 
-2 | < 
广 K 的 Sn 
国光 ~ 
] 
2.9 2.10 


若 按 入 2 并 回 车 ， 再 按 入 -50，--50w ， 则 三 角形 离开 
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小 动物 远 去 ， 见 图 2.11。 
若 按 入 3 并 回 车 ， 再 按 入 一 20， 一 30 JJ， 则 小 动物 离开 
拖 形 长 条 ， 向 三 角形 飞 去 ， 如 图 2.12 所 示 。 


六 ee ] 
< 
\_ 
本 2.12 


而 当 按 入 0, 0 时 ， 则 程序 运行 结束 。 

读者 可 以 模仿 土 述 操作 ， 随 心 所 欲 地 进行 图 形 的 各 种 移 
动 ， 如 果 输 入 的 数据 五 或 V 值 不 当 ， 以 致 被 移动 的 图 形 超出 
屏幕 范围 时 ， 则 程序 自行 结束 〈 见 460END)。 

本 程序 图 形 的 个 数 还 可 以 增加 ， 只 要 预先 在 方 格 纸 上 画 
好 图 形 ， 读 取 坐 标 ， 然 后 置 这 些 数据 于 DATA 语 句 中 ,数据 
的 安排 仍 和 上 面 规定 一 样 ， 每 两 组 数据 之 间 ， 以 两 个 连续 
一 1 分 隔 ， 不 要 忘记 最 后 一 个 图 形 数据 是 用 两 个 一 100 结束。 

完整 的 程序 GP 2203 清 单 。 


40 HGR2 : HCOLOR= 3 
70 DIM X(5,100),Y(5,100) NIS) 
BO XxXM = 279:YM = 191 
110 PN-= 1 

了 2E = 总 

130 READ XD,YD 


、\ 


” 220 


4 


IF xD = QTHEN 200 


160 NI 


1 7 局 


18o0 
1 9 


习 避 避 
了 | 
220 
239 
4 


259， 


290 
了 并 必 
本 3 


X(PN,E) = 
Y(FN,E)》 =-YD 


X (PP 可) 


TF xD = -100 THEN 34 、 


PN = PN + 1 


X 卫 


GOTO_ 3430 
PRINT 
GOSUB. 510 


PRINT "1- 2- 3-" 


INPUT P ， 
IF P = O'MTHEN TEXT : HOME : END 


PRINT "H AND YY AMOUNT TD MOwE 


INPFUT 
FOR :J 


外 工 


,V 
-1 TO N(F) 
xfP,JI) + H 
Y(PF,JI) +V 
IF X(P.JI) > = 0 AND X(PF,J) 
= XM AND Y(PF,J) :> = 0 ANDY 
(PF,J) “ = YM THEN 470 
END 
NEXT 了 
GOSUB 51 
GOTO 290 


HGR2 
FOR K = 1 TO FN 
FOR J=179ONK) -1 


HPLOT X(K,dI) ,YI(K,J) TO X(K,J + 
1) .YIK,J + 1) 


NEXT J 


NEXT 长 : 


RETURN 


ooog DATA _ 90 40，12040 4120 35350990， 
50,90,40- 
te DATA -1 -1! 
700 DATA 15o， 80， 180, 1060， 150， 10D 1 
SO0, 90 
71O DATA 一 1 ,一 t 
8l0 DATA 20,1s0,20,120,30， 110 40， 
120,40，110,50,100,30，100，50,9 
0,.60,.9060 100,50,110.60，120， 
70,110,80,120,80;130,70,120,6 
s 130， 70， 140, 50， 15O， 4 口 ， 140， 4 曲 
, 150，30， 120 
820 DATA 20,130 
?1 DATA -100， 一 Oo 


第 二 节 ”图形 的 放 缩 


图 形 放 缩 系 指 图 形 放大 和 缩小 ， 它 也 属于 基本 的 图 形变 
换 。 和 图 形 移动 的 设计 思想 一 样 ， 首先 必 须 搞 清 基本 原理 ， 
然后 再 安排 程序 。 

按 比例 放大 和 缩小 图 形 ， 必 须 首先 确定 一 个 参考 点 的 位 

_ 般 情况 下 ， 参 考点 可 以 设置 在 图 形 的 左下 角 ， 或 者 安 
排 在 图 形 的 中 心 。 设 参考 点 的 坐标 为 XF 、YEF ， 则 有 以 下 
变换 公式 : 
XS= X.HS+XFL(1 一 HS9) 
YS=Y.VS+YF(I 一 VS ) 

式 中 X、Y 为 变换 前 图 形 中 某 一 点 的 坐标 : XS、YS 为 
恋 换 后 该 点 的 新 坐标 ; XF、YF 为 参考 点 坐标 ; HS、V S 则 
分 别 表示 为 水 平方 向 和 垂直 方向 图 形变 换 (放大 、 缩 小 ) 的 
比例 系数 ， 它 们 必须 为 正 。 显 然 , 当 HS>1, VS >1T 时 ， 表 
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示 图 形 放 大 ; 当下 SS<<1 VS<1 时 ， 则 表示 图 形 缩 小 。 
一 、 图 形 的 放大 和 缩小 

下 面 ， 我 们 通过 在 屏幕 上 显示 一 辆 汽车 的 实例 ， 观察 图 
形 放 大 或 缩小 的 变化 。 《 四 

汽车 图 形 的 轮廓 分 成 3 个 部 分 : 第 一 部 是 FRONT， 其 
图 形 数据 放 在 920 一 930 句 的 DATA 语 名 中 ; 第 二 部 分 是 
BODY ， 相 应 数据 放 在 .950 句 中 ;第 三 部 分 是 REAR ， 
其 图 形 数据 放 在 980 一 985 句 中 。 每 一 部 分 数据 之 间 采 用 连续 
两 个 一 1 分 隔 ， 而 图 形 数据 最 后 一 部 分 ， 则 连用 两 个 一 工作 为 
结束 标志 。: 这 样 处 理 ; 保证 了 程序 与 图 形 的 相互 独立 性 。 

程序 共 分 4 段 ， 

第 一 段 ; 60 一 230 句 为 将 小 汽车 全 部 信息 读 入 两 维 数组 
X(PN, 下 )、Y(PN， 忆 ) 中 。 

第 二 段 ，770 一 830 名 为 画图 子 程序 。 

第 三 段 ，860 一 890 句 为 坐标 变换 的 子 程序 。 

第 四 段 ， 360 一 510 名 为 总 控 。 二 
2,3,4) 决 定 汽车 的 某 一 部 分 或 整个 汽车 进行 了 放大 或 缩小 ; 
放大 和 缩小 的 比例 由 HS VS (键盘 输入 ) 确定 。 而 基体 
部 分 的 放大 或 缩小 ， 还 应 输入 XFE、YE 的 值 〈 参 考点 坐标 六 
结束 程序 运行 输入 0,0 。 

世 源 程序 〈 见 GP2204) 


oo HGR2 : HCOLOR= 3 

70 DIM X(5,100) YY (5 100) ,NI(5S) 
80 XxXM = 279:YM = 191 

119 PN = 1 

12oOE = 
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READ XDyYD 
IF XB > = 
NICPN) = E 


IF XD = -~ 100 THEN 240 


X (PN， E) 二 XDTD 


TINPUT P 


IF .P = 0 _THEN、TEXT 


INPUT HS,vS: 


ON P 60TO 560,590,620,690 
XF = X(1,2) 
YF = Y(1,2) 


GOTO 640 


XF = X(2,2) 
YF = Y(2,，2) 


GOTO 0640 


XF = X(S,2) 
YF = Y(3,2) 


GOSUB 860 
GOSUB 77O 
6G0TO SO 


INPUT XF,YF 
FOR P = 1 TO PN 


GOSUB 860 
NEXT _P 
GOSUB 770 


.GOTO 3S30 


OO THEN 200 


7Z7O 
790 
吓 口 品 
805 


旨 1Q 


有 2 必 


830 
840 
人 品 如 口 


880 
890 
9200 
91o 
920 


9<O 


935 


946 
95o 


汉 66 


如 7 
980 


985 


HGR2 
FOR K = 1 TO PN 
FOR JIJ=1TONKT -1 


IF X(K, JI) < 0 OR X(K,I) 3 XM OR 
Y(K,J) <“ D OR YI(K,J) > YM THEN 
TEXT : HOME : END 


HPLOT XkKJ): YIK JI) TO XIKJJ 十 


1),Y(GK,I + 1) 
NEXT 
NEXT K 
RETURN 


FOR TO NI(CP) 


二 1 
X(PJ) = X(P,J) 区 HS 二 XF 藉 《〈1 


- HS) 


Y(PF,J) = Y(PF,J) xx VS+YF。 (it 


- VS) 
NEXT JJ 
RETURN 


REM “FORNT OF CAR 


DATA 220,90,210,90,210,，60，258 
,65, 260,90,250,90 

DATA 250,100,240,110,230. 1140 
,220,100,220,90,230,80 ,240,80 
,250,90 

DATA -1-! 


REM MIDBODY 


DATA _ 2141090160.90,160， 60,205 
,60,187,35, 160.S5， 160, 30， 190， 
3S0y21l10 60 

DATA -1, -1 

REM BACK OF CAR: 

DATA 120,90,160,90，160,60,120 
,60,120,60， 135。 35， 160， 35， 160， 
SO ， 1350, 50， 115。 60 


DATA_ 80.60,75,90,90,90,90.100 
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90, 110,80,100,80,90,90,90,100 
990 DATA -1005-109 


@ 运行 实例 

]RUNw 后 ， 屏 幕 止 出 现 一 个 汽车 , 该 汽车 没有 经 过 放 
大 、 缩 小 处 理 ， 见 图 2. 13 。 

?4 和 

?0.5，0.5vw/ 

?120，80v 

出 现 一 个 缩小 一 半 的 汽车 〈 指 对 原 汽 车 缩小 一 半 ), 见 图 
2.14。 


图 2.13 图 2.14 
?4 以 
?1.2，1.2。/ 
?100，120。/ 

出 现 汪 个 放大 1.2 倍 的 汽车 ( 指 
对 刚才 纺 小 的 汽车 )， : 见 图 2. 巧 。 
图 2.15 “ 铺 东 。 

将 778 多 HGR3 改 为 PRINT， 重新 运行 程序 ， 并 按 下 
述 步 又 操 作 ， 可 着 到 屏幕 上 4 辆 汽车 的 图 少见 图 2. 16。 


?2 


史 
4 


]RUNY 

?4 过 

?0.3，0.3 必 

?一 25，140Jy 

?4v 

?0.8，0.8v 

?一 8， 一 80v/ 

?4 

?0.6，0.6vw 

?-3， 一 40U ， 


sa Or 一 一 人 
一 
殉 2.16 
结束 运行 ， 输 入 0，0 并 回 车 。 
二 、 图 形 放 缩 的 动态 变化 
如 果 ， 和 希望 既 看 到 图 象 的 放大 或 缩小 的 变化 ， 又 看 到 图 
象 的 动态 变化 ， 则 只 要 将 上 述 程序 GP 2204 作 一 些 修改 。 主 
要 改动 原 740 句 为 ，FOR . K=1 TO 2500，NEXT K， 
GOTO2000， 并 增加 2000 一 2080 的 程序 段 。 
修改 后 的 程序 取 名 GP2205 。 


227 


如 人 .HGR2 : HCOLOR= 也 

70 DIM X(5,100) YY 1G0) N (5S) 

SO xM = 279:YM = 191 

115 PN ”= 1 

J<OE = 晶 

130 READ XxXD,YD 

1409 IF xD > = 口 THEN 200 

1e0 NI(PN) = E 

170 IF xD= 一 1oo0 THEN 245 

1B80 PN = PN+ 1 * 

1939o GCTO 1 2 

2 

2140"X(PNE) = XD 

ee YIPNE) = YD 基 号 人/ 

30 GOTOD 工 节 

240 FRINT 

290 GCCSUB 770 

DO PRINT 1-~FRONT 2-RODY 了 -REAR 
4-~ALL DOD-END7” 

xS60 ，INPUT P 

40o0 IFPRP=QOTHEN TEXT : HOME : END 


430D INPUT HS,YS 

5lO ON P 6G0TO 560590，020 690 
SeD XF = X(1,2) 

SSZc YF = 

58oO GO0TO 40 

D59O XfF = X( 之 ) 

60D YF -=…Y(22) 

和 la GOTQ 640 

Ca XF = X(Ss2) 

630 YF = 站 (SS 2) 

44 “GOSUB -860 

心 5 必 GOSUB 779 

c6o GO0TO 330 

49C INPUT XF,YF 

700 FORP= 1 TO RN 
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7 


720 
73O 
749 


7Z7DO 
790 
BOO 
805 


昌 1 


gf20 


830 
840 
860 
879 


88b 


893o 
76G0 
了 1 
可 局 个 


吕 人 
久 汉 避 


94 
吕 司 


6 
9 7 


FOR 长 


6OSUB 860 
NEXT P 
GOSUB 770 
FOR ,K = 1 TO 2500: NEXT KG60TO 
2000 
HGR2 
=,T TO PN 
FOR J = 1 TO NIK) -~- 1 
TF X(KyJ) < 0 OR X(K,J) > XM GOR 


YIK， J) “0 OR. YK J) > YM THEN 


TEXT : HOME : END 
HPLOT X(K JJ YIKJ) TO XI + 
1) ,YIK JI + 1 ) 


NEXT 了 J ? 

NEXT K 

RETURN 

FOR J = 1 TO NI(P) 

X(P,J) = X(P,JI) # HS + XF * (1 

- HS) 
Y(P,J) = YI(P JI) * VSG + YE tl 
一 YS) 

NEXT 了 

RETURN 

REM FORNT OF ER _ 
DAT 局 吕 ， 0， 也 1 所 93DD， 210， 6 ,250 


， 白宫， 富 折 人。 只 避 ， 局 忆 品 。 9 . 

DATA 250y 100240 1105y230 19 
9D23OD BO240 8 
,25G，90 ， 
DATA -1,-1 

REM MIDBODY 

DATA 32321090 16090 160 60，205 
0， 187, 3S5, 160,35, 160, 30， 190， 
30.216， 如 

DATA 一 1 ， 一 | 

RFM BACK DOF CAR 
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- 品 台 D 


979D 
100D 


2000 


局 避 圭 口 


习 避 避 
刀 避 已 
2040 
2050 
2060 
人 7 
2075S 
2080 


30， 


DATA 120 90160 .30 160,6064 1260- 
, 60120， 60， 135, 35， 169， 帮 ， 160 ， 
1s0， so0， 115， 折扣 本 

DATA 8D， 65， 75730，90， 78:90， 100 
站 口 110， 116， 110， 120， 1LQb 120， 
390, 4110, 80， 190， 308599， 38， 2Dy 100. 


DATA -190,-100 | 
DATA .120， 日 9 122,78,124， 7O， 1 
26,74， 128， 72 2 7O, 13068， 1 
2，66,13S4， 总 4， 1 6， 64 
FOR 工 = 1 TG 10 
READ XF ,YF 

HGR2 

FOR P= 1 TO PN 
GOSUB 864、 

NEXT P_ 

GOSUB 779 

NEXT 工 
FOR KK = 
TEXT : 
E!": END 


1 TO 10001 
HOME : PRINT 


NEXT 长 
"GO0D BY 


GP2205 程 序 运 行 
然后 输入 : 

?4v 

?0.9，0.9w 

?120，80v 

即 可 在 屏幕 上 看 到 10 个 变化 的 汽车 图 形 ， 一 面 一 次 一 次 
地 缩小 ， 一 面 一 次 一 次 地 移动 ， 最 后 自动 结束 。 

至 于 GP2204 和 GP 2205 两 个 程序 局 部 放大 或 缩小 ， 输 
入 的 P 值 为 1, 或 2, 或 3。 读 者 可 以 自行 试验 ， 从 中 体会 程序 的 
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后 , 首先 出 现 一 个 原 数 据 的 汽车 图 形 ， 


编制 原理 ， 以 及 欣赏 图 形变 换 的 乐趣 。 
第 三 节 镜 象 复制 


”在 图 形 显示 技术 中 ， 使 用 窗口 和 视 见 区 的 概念 ， 常 常 可 
以 得 到 出 卑 意 料 的 特性 。 如 果 我 们 把 视 见 区 的 参数 在 一 定 范 
围 内 倒置 ， 可 以 得 到 复制 的 对 称 图 象 ， 就 象 我 们 在 镜子 里 看 
到 一 个 物体 时 一 一 样 。 这 种 能 用 较 少 的 数据 〈 把 它 放 在 DATA 
语句 中 ), 画 出 具有 一 一 个 或 几 个 对 称 轴 的 图 象 ， 在 绘图 技术 中 
是 很 有 用 的 。 它 可 以 减少 大 量 重复 劳动 ， 绘 制 出 各 种 形态 各 
异 又 完全 对 称 的 图 象 。 

改变 V1、V2、 V3、V4 的 参数 ， 可 以 得 到 不 同 区 域 的 
视 见 区 矩形 框 :. 在 一 个 屏幕 上 可 以 设置 几 组 不 同 参数 的 Vi 值 
(i=1,2,3,4)， 可 以 得 到 几 个 视 见 区 ， 而 把 几 个 视 见 区 巧 丸 
地 组 合 在 一 起 ， 就 会 使 视 见 区 内 的 画面 对 称 。 

由 于 视 见 区 可 以 复 现 窗口 内 的 内 容 ， 因 而 改变 窗口 的 大 
小 ， 可 使 视 见 区 的 图 象 发 生 放大 和 缩小 的 作用 。 ， 

下 而 有 个 各 序 实 岗 ， 风 术 用 到 在 疼 划 狂 中 的 几 个 了 各 

见 第 二 篇 第 九 章 )。 
一 的 卫生 
@ 程序 ( 见 GP2206 ) 


1S0 TEXT : HOME 

140 N1 = ON2 = 50:WS = 0:W4 = 25 
150 “HGR2 : HCOLOR= 3 

155、READ V1,V2,VS,V4:， 60SUB 60000 


160 “60SUB 43560: 60SUB 500 
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与 冯 口 
瑟 4 口 
与 口 
SO 
号 7 
SB 
己 劝 局 


READ VivV2s vssVv4: GOSUB 606000 


GO0SUB 43S500: 6GQSUB 500 
READ V1,V2,VS,V4: GOSUB 640000 


GOSUB 63500:， 60SUB 5o00 
READ Vi1,VvV2,VS,V4: 6GOSUB 60000 


“ 。 千 - 
GOSUB 6s5Do: GO0OSUB SO 
PRINT “CHR 让 〈7) : END 
DATA ”0,69.5,0,47.5 
DATA ”139.5,69.5,0,47.。5 
DATA 0,69.5,90.5,47.5 
DATA ”139.5,69.5,90.5.47:5 


X 二 .如 Y 二 2 因 事 二 “由 " 


GOSUB 423003W = 2D， 


xX = 47:Y = 22: GO0SUB 62300 
X = 47:Y = 2: 608SUB 62300 

X = 32:Y = 2: GOSUB 62300 

X = 32:Y = 7: GOSUB 62300 

Xx = 17:Y = 7: 6G0SUB 62300 

Xx = 17:Y = 17: GO0SUB 642300 
xXx = 23:Y = 17:， GO0SUB 62300 

X = 23Y = 232: 6G0SUB 62300 

RETURN - 


@ 运行 结果 〈 见 图 2417) 

程序 GP 2206 运行 后 ， 在 屏幕 的 左下 方 得 到 4 个 对 称 的 
图 象 ， 此 时 视 见 区 较 少 ， 4 个 视 见 区 只 占 屏 幕 的 四 分 之 一 。 

二 、 窗 口 加 大 ， 图 形变 小 

在 程序 GP2206 的 基础 上 , 若 改变 窗口 的 值 〈 见 140 句 )， 
则 得 到 图 2.18。 这 是 因为 在 视 见 区 相同 的 情况 下 ,窗口 加 大 ， 


图 形变 小 。 
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图 2.17 窗口 ，W1=0: WwW2= 


50:W3=0:W4=25 100:W3=0:W4=50 

从 上 面 两 张 可 以 看 到 ， 窗 口 值 加 一 倍 ， 图 形成 比例 缩小 
一 售 。 、/ 

@ 程序 (GP2207) 一 
130 TEXT :， HOME 

140 NI = DO:W2 = 100:NWS = 0sMW4 = 5 
150 HGR2 :， HCOLOR= 3 

155 READ V1,vV2,vS,V43 GOSUB 60000 
160 “GOSUB 63500:， 60SUB 500  ， 

t+60 ”READ V1:V2,VS,V4: GOSUB 60000 
190。 6G0SUB 635001: GO0SUB 500 
200 READ V1,v2,VS,V4: GOSUB 60000 
210 “GOSUB 63500:， 60SUB 500 
220 READ V1.v2,vS,V4: GOSUB 60000 
230 “GOSUB 63500: GO0SUB 500 
240 PRINT “CHR 蔬 . (7)3 END 
3S00 DATA 0,139;0,95 

sl0 DATA 279,139,0,95 


3S29 


naATA 0.139,191,95 
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可 和 人 有 有 T 人 有 十 本 0 细 .人 7。 
了 5 了 AT 2797259.5 ,9OD。 3275 
3560 DATA 139、 5.209)， 47.540 
5370 DATA 279,2093.5,90。 5?0 


@ 四 运行 结果 〈 见 图 2.20) 


十 一 一 


图 2.20 
五 、8 个 视 见 区 图 象 镜像 复制 
程序 GP 2209 是 在 程序 GP 2208 的 基础 上 ， 加 上 了 图 形 
数据 ， 画 出 的 8 个 对 称 图 形 〈 见 图 2.21)。 
@ 源 程 序 〈( 见 GP2209) 


13O TEXT :。 HOME 
LI40 NWL = O:NW2 = 100:NWS = 0:N4 = 50 


150 “HGR2 : HCOLOR= 3. 

155 READ Vi.V2,vS,V4: GO0SUB 60000 
: 60SUB 400 

160 “6G0SUB 63500 

180 “READ Vi,VvV2,VS,V4: GOSUB 60000 
: 60SUB 400 

190 “6G0SUB 63500 

200 “READ V1,vV2,VS3,V4: 6G0SUB 60000 
: 6G0SUB 400 

210 GOSUB 63500 
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READ 'vV1,v2,vSs,V4: 60SUB 60000 
: GO0SUB 400 
GOSUB 63500 


READ V1,V2,VS,V4: 6G0SUB 60000 


: 60SUB 400: 60SUB 63500 

READ V1,V2,V3S,V4: GOSUB 60000 
: GOSUB 400: 60SUB 63500 
READ V1,V2,VS,V4: GO0SUB 60000 
: 60SUB 400:， 60SUB 63500 

READ V1,V2,VS,V4: 60SUB 60000 
: GO0SUB 400:， 6G0SUB 63500 
PRINT “CHR$. (7): END 


DATA 0 69.。.5 0 47 .5 


其 


DATA 139.5.69.5,0，。 47。 呈 5 

DATA 吕 ， 69.5,30.5,47.5 

DATA 1 39 .5。 69.5 9 47.。5 
DATA 279，209.54047 .5 

DATA 139。5,209， 0,47.5 

DATA 279， 209.5,90.5,47。5 
DAT 1393. 5:209， 90。.5,47.。5 

必 一 局 一 公公 审 之 后 

50SUB CO23OOSW 车 二“D" 


47:Y = 22: GO0SUB 62300 
= 47:Y = 2 60SUB 62300 
= 323sY = 2 GO0SUB 62sO0 
= 32sY = 7: GOSUB 62300 
= 174:Y = 7: GOSUB 62300 
= 17:Y = 17: 6G0SUB 62300 
= vsY = 1T73 GOSUB 42300 
= 2 Y = 22 6D0SUB 642300 
RETLURN 
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@) 运行 结果 【〈 昂 图 2 21) 
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第 三 章 分 页 显示 . 


在 显示 屏幕 上 ,实现 不 同 图 象 的 分 页 显示 ， 可 使 计算 机 
辅助 教学 增加 情趣 ， 给 读者 留 下 深刻 印象 ， 从 而 提高 学 习 效 
率 。 

图形 显示 的 基本 要 求 是 

“ 能 显示 复杂 图 形 : 

. 分 页 显示 速度 快 

。 整体 画面 效果 好 

“动态 变化 较 突出 


图 形 显示 的 基本 原理 是 : 、 
图 象 ， 再 予以 抹 去 。 一 


本 章 我 们 将 介绍 多 幅 画 面 的 分 页 显示 方法 。 

为 叙述 方便 ， 我 们 首先 介绍 图 形 存 贮 、 调 用 、 图 形 搬家 
的 技巧 和 屏幕 软 开关 的 作用 ， 然 后 分 节 叙 述 多 幅 画面 分 页 显 
示 的 技术 。 

3 第 一 节 ”图 形 的 存 迪 和 调用 

屏幕 上 任何 一 幅 图 形 都 是 由 程序 运行 时 产生 的 。 因此 ， 
通常 的 方法 的 是 将 这 些 画 图 程序 存 入 磁盘 ， 以 后 再 调 入 内 存 
并 运行 它 ， 图 形 便 能 再 现 。 显 然 ， 这 些 图 形 的 产生 离 不 开 画 
图 程序 的 运行 ,如 果 画 图 程序 十 分 复杂 ， 岁 形 信息 十 分 丰富 ， 
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那么 运行 程序 ， 显 示 画 面 的 时 间 就 会 很 长 ， 这 在 分 页 快速 显 
示 图 象 时 ， 就 会 很 不 方便 。 因 此 ， 我 们 应 设法 直接 把 图 形 存 
入 磁盘 。 

方法 也 很 简单 ， 在 每 一 幅 图 形 完 全 面 好 并 在 屏幕 上 显示 
结束 后 ， 用 下 面 任 何 一 种 命令 ， 都 可 将 图 形 信息 存 于 磁盘 

BSAVE -图 形 名 ，A$2000， 下 中 2000 

BSAVE 图形 名 ，A 下 4000， $2000 

BSAVE 图 形 名 ，A$6000,， 工 $2000:” 

其 中 ， 图 形 名 可 不 必 与 程序 名 同 ， 以 字母 打头 就 可 以 。 
A 和 后面 的 数字 , 表明 图 形 页 的 起 始 地 址 ，L $ 后 面 的 数字 ， 
表示 图 形 区 的 长 度 。 BS AVE 命令 ， 是 把 指定 地 址 开始 的 
指定 长 度 的 二 进 制 信息 以 给 定名 字 存 在 磁盘 上 ，: 列 有 具 录 时 可 
以 看 到 ， 它 们 是 以 B 字 头 标志 ， 占 34 个 扇 区 。 

应 该 指出 的 是 ;上述 各 种 存 贮 格 式 ， 在 调 入 内 存 时 ， 必 
须 指 定 将 图 形 信息 调 入 图 形 存 贮 区 ， 是 从 那 一 个 地 址 开始 
的 。 

将 存 于 磁盘 上 的 图 形 调 出 来 ， 比 较 简单 ， 可 用 命令 : 

BLOAD 图 形 名 “二 


或 者 : 

BLOAD 图 形 名 ，A 下 2000 “〈 调 入 第 一 页 图 形 存 贮 
区 ) 

或 者 

BLOAD 图 形 名 ，A $4000  ( 调 入 第 二 页 图 形 存 贮 
区 ) 

或 者 
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BLOAD 图 形 名 ， 太 囊 6000， (在 $6000 开 始 有 凡 图 
形 ) 

值得 注意 的 是 ， BLOAD 命令 只 能 把 图 形 信息 ， 调 入 
相应 的 图 形 存 贮 区 ，， 它 本 身 不 包含 显示 功能 。 同时 BLOAD 
图 形 名 ， A $2000 的 图 形 ， 只 能 在 图 形 第 一 页 看 到 ， BLOAF 
图 形 名 ， A$4000 的 图 形 ， 只 能 在 第 二 页 看 到 ;ij 而 BLOAD 
图 形 名 ，.A $ 6000 的 图 形 ， 在 第 一 -页 和 第 二 页 均 不 能 看 到 ， 
而 必须 将 其 搬 至 第 一 页 或 第 二 页 :然后 用 HGR 或 HGR ?或 
软 开 关 ， 才 能 显示 出 图 形 。 


第 二 节 图 形 搬 . 家: 


这 有 两 种 情况 : 

一 是 原来 在 内 存 的 图形 信息 (例如 存 于 第 一 页 A$2000 
中 )， 改 搬 到 磁盘 上 另 一 个 存 贮 地 址 单元 (例如 和 A$4000), 可 
以 用 以 下 形式 ， 

BSAVE 图 形 名 ， A$$4000， 工 $2000 

这 样 ， 关 机 后 ， 重新 调 入 内 存 时 ， 图 形 不 是 在 第 一 页 ， 
而 是 在 第 二 页 。 
呈 二 是 原来 在 盘 片 中 的 图 形 信 息 (例如 存 于 A$6000，: 
工 $2000 中 )， 改 搬 到 内 存 中 另 一 个 图 形 存 贮 区 (如 A $4000)， 
可 以 用 以 下 方法 

10X$ =“4000<6000. 7FFFM N  D823G” 

20FOR TIT=1TO LEN (X$).POKE511+ 工 ， 

ASCLC (MI1D$ (X，I，1 )+128: NEXT 工 : 

POKE 72,0 

30CLAA 一 144 
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在 此 以 前 7 -应 将 盘 片 中 的 信息 〈 原 存在 A $6000 一 段 地 
址 的 内 容 )， 调 进 内 存 。 
:当然 ， 用 DOs 命令 ， 会 使 这 种 搬家 更 为 简捷 ， 如 ， 
PRINT CHR$ (4 )“ BLOAD 
团 形 名 ， A$$ 40002 
或 PRINT CHR$ (94 BLOAD” 


,图形 名 ?”》， A $4Q00 
第 三 节 ， 屏幕 软 开关 


众所周知 ,用 屏幕 软 开 关 可 以 实现 屏幕 工作 方式 的 转换 ， 
在 程序 中 只 要 访 向 这 些 软 开 关 的 地 址 ， 就 能 设置 屏幕 显示 器 
的 方式 。 如 ， 

了 OKE 一 16302.0 ”全 屏幕 图 形 显示 

POKE 一 16297,0 ，” 设 定 高 分 辩 率 方式 

POKE 一 16304,0 ，” 设 定 图 形 方式 

POK 一 16300,0 ” 选 定 高 分 辩 第 一 页 

POKE 一 16299,0 ”选择 高 分 辨 第 二 页 

POKE 一 16301,0 ”图 象 文本 显示 方式 . 

_ 所 要 注意 的 是 ， 执 行 HGR 和 HRGR 2 命令 ,都 会 把 获 愤 
上 的 内 容 清除 , 这 在 需要 保留 原来 的 高 分 辨 图 象 时 十 分 不 便 。 
为 了 进行 高 分 辩 图 形 显示 方式 的 转换 ， 同 时 又 不 致 于 清除 原 
来 的 高 分 辨 图 象 ， 所 以 要 用 POK 已 语句 来 实现 。 


第 四 书 “分 页 和 连续 显示 的 原理 


高 分 辨 图 形 有 两 个 显示 区 ， 或 者 称 有 两 个 存 贮 区 〈 通 常 
又 称 第 一 页 和 第 二 页 ), 每 个 存 贮 区 占有 8192 个 单元 ( 即 $ 2000)， 
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两 页 存 贮 区 地 址 安排 如 下 : 

高 分 辨 图 形 第 一 页 ， $2000 一 $3FFF 

高 分 辩 图 形 第 二 页 ，$ 4000 一 $5FFF 

为 了 达到 分 页 显示 或 连续 显示 的 目的 ， 可 以 用 一 个 存 贮 . 
区 来 存放 信息 ， 另 一 个 存 贮 区 用 于 取出 信息 并 显示 ， 然 后 掉 
转 过 来 ， 一 个 用 于 显示 ， 另 一 个 用 于 存 贮 ， 从 而 实现 连续 显 
示 。 、 

下 面 ， 我 们 通过 若干 实例 ， 详 细 介 绍 多 幅 画 面 分 页 显示 
的 实施 方法 。 

第 五 节 ” 单 幅 画面 的 显示 

有 一 个 LOGO 图 形 ( 见 图 2.22)， 以 SAVEPICT 
“HY.PICTvw 存 入 磁盘 , :如 何 用 BASIC 程序 将 其 显示 
并 打印 出 来 。 ! 

编制 一 个 .BASIC 程序 ， 见 GP 2301， 然 后 按 下 述 步 
又 执行 操作 : 

. 引导 DOS 进入 BASIC 状态 。 

, 将 显示 打印 程序 GP 2301 调 进 内存 。 

“ 放 LOGO 图 形 资料 盘 片 进 驱动 器 。 

。 调 被 显示 的 LOGO 图 形 进 内 存 ， 如 BLOAD HTY . 
PICTvw 。 

“运行 程序 GP 2301。 

程序 GP 2301 清 单 。 


10 PORKE 一 16304，0 
< POKE -16297，0 
SO POKE  -- 16302.0 
4596 PORKE 一 16300,0 


45 


己 吕 


FOR :I = 1 TOQO 25060: NEXT 1 
JEXT : HOME 


Cow PR# 1 

7D  PORE 1913。1 

BD PRINT CHR 和 车 (17) 
30 PR# 

100 ”END 

LOGO 图 象 , 见 图 2.22。 、 


说 明 ; 由 于 LOGO 图 形 
都 是 存 贮 在 高 分 辨 率 第 一 页 
的 ， 所 以 在 程序 中 安排 了 PO- 
KE--16300, 0 〈 置 第 一 页 )， 

同时 为 了 看 清 图 象 的 全 过 程 ， 
安置 了 一 个 延迟 , 即 FOR I= 
1 TO2500: NEXT。 


图 2.22 如 果 仅 仅 显示 图 形 ， 也 可 
用 程序 GP 2302 来 实现 。 

程序 GP 2302 清 单 。 

1G HGR2 : HCOLOR= 7 

15 INPUT 及 韦 

20 PRINT CHR 币 (4)3 2BLOAD" ,A 囊 

30 FOR I = 1T TO 2000: NEXT 

40 HOME : TEXT 

50 60TO 10 


程序 GP 2302 具 有 更 大 的 灵活 性 ， 它 可 以 根据 输入 的 图 
形 名 ， 任 意 显示 并 可 以 不 间断 进行 。 

对 于 显示 第 二 页 的 图 形 ， 程 序 GP 2301 中 的 POKE 
-16300, 0 应 改 为 POKE -16299,0; 而 程序 GP 2302 中 的 
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HGR 应 改 为 HGR 2。 
为 实用 的 方便 ， 可 以 编制 更 简单 的 显示 程序 ， 它 将 调 进 
如 ] BLOAD  X1vw 
] RUN GP 2303 
程序 GP 2303 清 单 。 


1 PDREE -16304，0 


20， PDKE  - 16297。0 
ws PDFE 一 16302 
40  POKE  - 16300,0 


50 FOR I = 1 TO 2000: NEXT IT 
ea0 TEXT : HOME : 
70 “EN 


X 为 假定 的 一 个 图 形 名 。 从 这 里 可 以 进一步 体会 到 ， 
BLOAD 命 令 不 具有 显示 图 形 的 功能 ， 而 必须 加 GP 2303 的 
显示 程序 ， 才 能 将 图 形 显示 出 来 。 

第 六 节 ”两 幅 画 面 的 分 页 显 


用 置换 屏幕 软 开 关 方 法 ， 很 容 实 现 两 幅 画 面 的 分 页 显示 ， 
见 程序 GP 2304。 


10 “REM GP2304 

29 “HOME 

SO0 D$= CHR 虽 (4) 
40 PRINT D 韦 "BLOAD PICT1,A$2000" 
50 PRINT D 委 "BLOAD PICT2,A$4000" 
60  POKE 49232,0: POKE 49239,0 
70 “POKE 492354,0: POKE 49236,0 
80 FOR J = 1 TO 2000: NEXT 1 

30 “POKF 49237,0 


[ne 


AN 
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100 FOR R = 1 TO 2000: -NEXT P 
110 60TG 70 


”程序 GP2304 中 PICT1 和 Pi CT2 为 两 幅 画 面 的 图 形 
名 称 ， 可 根据 实际 图 形 名 称 选 定 。 80 句 和 100 名 可 以 控制 画 
面 在 屏幕 上 的 停留 时 间 ， 也 可 由 实际 需要 灵活 改变 。 如 果 
PICT1 和 PICT2 是 表示 的 同一 种 图 形 的 不 同位 置 ， 则 
程序 GP 2304 还 可 以 将 该 图 形 以 动态 方式 显示 出 来 。 


第 七 节 “三 幅 画 面 的 分 页 皇 示 


运行 程序 GP 2305， 可 以 分 页 显示 三 幅 图 形 。 


10 D$ = 上 上， CHR 机 (4) 

20 PRINT D$"BLOAD GMS8 ,As$ 甩 20D0" 
25 “ PRINT. D 蔬 5 "BLOAD P4,6 和 有 4000" 

S0 PRINT D$5"BLOAD GMS10， 和 于 6000" 
40 “POKE 49232,.0 

s50 “_POKE 49239.0 

60 PROKE 492354。0 

70 “POKE. 49236。0 

8O GET A 韦 

590 “POKE 49237:0 

100 GET A 囊 

110 X 囊 -= "2000<6000， 7FFFM N D8236" 


120 FOR I = 1 TO LEN (X 下 ): FOKE 
511 + I，ASC ( MID 利 〈(X 惠 ,TI 1)) 
+ 128:， NEXT I: POKE 72,0 


130 CALL - 144 
140 。POKE 492356，0 
159 GET A 


210 HOME : TEXT : HTAB 15: VTAB 1 
0 INVERSE :， PRINT "600D BYE， 
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“3 NORMAL 
220 END 
程序 GP 2305 还 有 这 样 一 个 特点 ， 可 以 用 按 任意 键 控制 
画面 在 屏幕 上 的 停留 时 间 。 

10 一 30 句 将 三 幅 图 形 资料 一 次 调 进 内 存 ，40 一 60 句 置 全 
屏幕 高 分 辩 率 图 形状 态 ，,70 句 显示 第 一 页 图 形 ， 按 任意 键 
(80 句 ) 显 示 第 二 页 图 形 〈90 句 ), 再 按 任 意 键 将 第 三 页 图 形 搬 
至 第 一 页 图 形 显 示 区 〈110 一 130 句 ), 然 在 在 第 一 页 显示 (140 
句 ), 最 后 按 任意 键 清 屏 ， 然 后 反 相 显示 GOOD BYE! 字 
样 结 束 。 “是 


第 八 节 ”三 幅 画 面 分 页 显示 的 自动 控制 


程序 GP 2305 虽 然 能 够 用 手动 控制 三 幅 画面 ， 也 能 控制 
在 屏幕 上 显示 时 间 , 但 不 能 改变 顺序 ， 任 意 显 示 任 一 幅 画 面 。 
为 此 ， 再 介绍 一 种 显示 程序 。 

程序 SGP 2306 能 够 自动 显示 三 幅 图 形 ， 也 能 反复 和 任意 
显示 任 一 幅 画 面 ， 和 输入- 1w ， 结 束 程序 运行 。 

假设 磁盘 中 有 N 幅 图 形 , 它们 都 存放 在 $4000 一 $5 FFE 
单元 中 ， 程 序 运行 后 可 根据 提示 ， 任 意 选 择 磁盘 中 的 图 形 ， 
程序 能 自动 搬家 放置 在 第 四 页 ( $8000 一 $9 FFF)、 第 三 页 
| $6000 一 $7 FFF )、 第 二 页 ($4000 一 $5 FFF ) 中 ， 
然后 ， 程序 又 会 根据 输入 的 X 值 (X=1,2,3)， 自 动 显示 任 
一 幅 画 面 ,它们 都 利用 第 一 页 显示 页 面 ($2000 一 $3 FFF ) 
作为 公共 显示 区 。 

由 于 中 华 学 习 机 内 存 的 限制 , 程序 GP 2306 运 行 前 , 必须 
将 DOS 搬家 。 例 如 程序 运行 前 ， 首 先 运行 DOS MOVER 
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程序 , 即 BRUN DOS MOVERv ， 然 后 再 运行 GP 2306 
福 序 。 

程序 GP 2306 清 单 。 

5 REM AUTU DISFLAY 

10 D 韦 = CHR 生 (44) 

25 PRINT : PRINT 

30 INPUT 5NETER: PICTURE ,FILE:A1 负 

(人 1 名 


40 PRINT- B 事 BLOGOAD，* ， 全 主事 
SO0 ~Kt 蔬 三 na8000<4000. SFFFM N D9236G" 


52，G60SUB t010:， CALL 一 144 


s55 PRINT 
60 INPUT "NETER PICTURE FILE:A2$ 
3 外 ”从 之 要 -~ 


70 PRINT D "BLOAD" , A2 囊 
80 K2$ = "6000<4000.5FFFM N D8236"” 


82， 60SUB 26to: CAEL -- 144 


85 PRINT 
30 INPUT "NETER SICTURE FILE:A3 囊 
“3 


190 PRINT D 和 村; "BLOOD ， 和 3 卫 韦 
110  PFOKE 49232,0: POKE 49239,0: PDFKE 
49234 .0 
2 GO0SUB 10o0 。 
175 CALL -1T444 OKE 492 3S60: FOR 
TI = 1 TO 500 I 
176 60T0 <80 


176 GO0SUB 2000 四 
225 CALL  - 144， POKE .36 0 


I = + TO 50600: NEXT 1 

226 6G0TO 2855 

228 GO0SUER ec 

275 REALL - 1443; PRDKEE 43230 05: FOR 
I=116 525 NEXT I | 


9 


278. PRINT 
279 “POk 志 性 站 辟 攻 2 ， 个: PDKE- 452359， Di: POKE 
- 考 24 ,人 
280 ，INFUT ENTER PICTURE NuMBER " 
282， IF :X = THEN TEXT : :HOME 
， END 
230。， .ON X 6Dfo: 125S ,117B,228 
560 6gfG 2 
+000 .长 1- 二 2000< .40ooo。 SFFFM N DB823S 
后" 四 - - 
1010 和 DOR 并 = 人 下 OO LEN (1 车) 2 PORKE 
站 IT。 SC (MID 韦 、 《4K1 下 Is1) 
+ 126: NEXT TY PORKE 73,0 
1020 -RETURN 二， :二 
2000 长 2 囊 = n2000<6000. 7FFFM NDS235 
G9% “ 
so0t10 FOR I = TO LEN (KK2 蔬 ) : PFOKE 
St + 了 SC :( MID$ 《K2 委 ,TIT，1)》 
) + 128: NEXT T PFDKE 72.0 
2020 “ RETURN: 
x000 KS 事 = wm2000x6000。 9FFFM NI DB2 


忆 吕 1 品 


SO2 


后 

FOR IT = 1 TO LEN (KS$): POKE 
Stlt + 了 IT， ASC ! MID 币 〈KXS$, IT, 1 ) 
) + 128B: NEXT 工时 .POKE 72,.0 
RETURN 


第 九 节 四 幅 画 面 的 分 页 显示 


设 有 四 幅 画 面 ， 它们 在 磁盘 中 存 贮 情况 为 ; 
GMS 8; 再 2000 一 $3 FFF ， 


P 2 


GM10 : 


$4000 一 $5 FF 
$6000 一 $7 FFF 
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MAP ， 


$8000 一 $9 FFF 
欲 将 它们 分 页 显示 ， 其 基本 方法 和 三 幅 画 面 分 页 显示 程 
序 十 分 类 似 ， 主 要 不 同 点 是 用 二 页 显示 区 作 公用 显示 区 ， 同 


上 面 三 幅 画面 分 页 显示 一 样 ， 也 要 首先 将 DOS 搬家 。 


四 页 分 页 显示 程序 见 GP 2307， 运 行 该 程序 后 ， 四 幅 画 
面 分 别 调 入 内 存 。 然 后 先 在 第 一 页 显示 GMS 8 图 形 (70 句 ) 
稍 等 片刻 ， 显 示 在 第 二 页 显示 了 2 图 形 〈90 句 ), 经 100 句 延迟 
后 ， 将 原来 存在 内 存 第 二 页 页 的 图 形 搬 至 第 一 页 〈110 一 130 
句 ), 执行 140 句 在 第 一 页 显示 GM S 10 图 形 ， 再 经 150 句 延迟 
片刻 ， 将 原来 第 四 页 的 图 形 搬 至 第 二 页 (160 一 180 句 ), 执行 


1 名 在 第 二 页 显示 MAP 图 形 ， 最 后 清 屏 结束 。 


PRINT D 革 “SBSLOAR GMS10” 


150092 NEXT 


FOR II = 1 TO 1So0c: NEXT 
X 囊 = 1， 20000000D 7FFFM N DB23G" 


LEN 《〈X 革 ) : PPOKE 


T，ASC ( MID 机 《X 囊 ,Tti)) 


+ 1292 NEXT I: PQKE 72，D 


程序 GP 2307 清 单 。 
19 1 向 = CHR 上 机 (4) 
20 PRINT D 币 ;51BLOAD GMS8， 
25 PRINT P 吊 ; "BLOAD PF2 
忌 
35 PRINT D 囊 "BLOGOAD MAF'" 
40  FOKE 49232,0 
5 PORKE 49239，0 
6QG  PDKE 43234，D 
70  PFDKE 4923640 
8 FOR I = 1 TO 
950 POKE 49237，9 
100 
110 
120 FOR TI = 1 TO 
Sll + 
1 CALL -~- 144 
140  PFOKE 49236，0 


1S0 FOR LI = 1 TO 25DD3 NEXT 
160 Y 和 下 = 40000800 929FFFM N DS62G” 


170D FOR II= 1 TO LEN (Y 蔬 ): FORE 

5lt + II，ASC ( MID 和 叫 〈Y 划 ,IT,1)) 
+ 128: NEXT TI PORKE 72，0 

18B80 CALL  -- 144 

19D TURE 4923740 

2oD FOR TI = 1 TO 25c0: NEXT 

2 TEXT -HOME 

220 END 


为 使 四 幅 画面 显示 更 加 灵活 方便 ， 可 用 程序 GP 2308， 
其 特点 是 : 

"磁盘 中 图 形 可 以 存放 在 任意 区 〈($2000， $4000， 
$6000， $8000 均 可 ) 

“ 可 以 随意 调 磁 存 中 任意 4 幅 画 面 ， 一 经 调 入 内 存 ， 程 
序 会 自动 分 别 放 在 相应 存 贮 区 

. 有 防止 按键 出 错 的 处 理 〈108 句 ); 

. 有 自动 停机 的 功能 (106 句 ); 

。 有 自由 选择 任 一 幅 画 面 的 方法 ; 

“ 全 部 画面 只 用 了 第 二 页 作为 公共 显示 区 。 

运行 GP 2308 程 序 前 ， 应 将 DOS 搬家 。 

显然 ， 本 程序 编制 简捷 ， 使 用 灵活 ， 技 巧 性 强 。 特 别 是 
150 句 的 安排 。 如 果 150 句 中 CALL- 144 放 在 200 句 RE 人 
URN 前 ， 程 序 将 发 生 错 误 ， 读 者 可 以 上 机 试验 ， 并 分 析 原 
因 。 

程序 GP 2308 清 单 。 
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5 REM GP2308 
1 Dj =- :CHR$ 4) : HOME : PRINT D 市 
"CATALGG“ 
1 PRINT- 
仿 INPUT- "PICT1 9 全 囊 
3S0 INPUT "PICT2 "3 B 囊 
4 INPUT “PIGTS “人 种 
So INMPUT "PICT4 n ; 巨 囊 . 
.60 PRINT .D 韦 "BLOAD1 及 委 六 全 上 2000. 
7 PRINT -D 囊 "BLOAD 忆 蔬 ”， 辣 囊 二 全 忆 全 
吕 PRINT 也 囊 #BL 日 合 D 7 尼 囊 革 ， 行事 白 吕 CO 
9 有 PRINT D 书 " 呈 0AD7…E 囊 5 .和 机 800b 
100 代表 二 1 10OCOQ4DOD。 4FFFM N AGOOz 
oO。 SFFFH 及 D823G" GOSURB 206 
CAEL 一 21434343 HGR2Q 区 
104 “GET 6 机 
1005 IF A 中 = THEN TEXT : HQME 
MTAB- 10: 辐 T 全 下 ， 世 训 和 未 二 人 SHE 
CO7 PRINT "END17: NOQRMAL. 2 END 
BTIF A 和 :410 0OR A 和 > "4 THEN 
To4 
TD IF 下 二 “1 ”THEN 长 书 = “40QG& < 
000. 3FFFM 让 D8236"， 6DSUB 200 


< IF A 韦 =“ 习 ” THENE 长 委 : 4000XA 
coo. 7FFFM AN 卫 82 3 5G" :6OSUB 200 


130 ITF A 事 = "3S" THEN KE 囊 = "4000< 日 
coo.93FFFM N_ D8236": 60SUB .200 


145 IF 和 币 一 "4 THEN 区 启 - = “4ODOx1l 
G00. 1FFFM. N 5c004A0G0.AFFFM_N 
D8236": GOSUB 200 

15G CALEL 一 1445F. = : FRE 40)3 GG0TO 
1 4 

20D FOR IT = 1 TO LEN (K 串 ): POKE 
Stl + TI，ASC ( MID 种 Cj 和， I,1)) 
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+ 129:， NEXT TI: POKE 72,0 
210 ，RETURN 


第 十 节 “ 八 幅 画面 的 分 页 显示 


GP 2309 是 一 个 可 以 分 页 显示 八 幅 画面 的 程序 ， 其 中 20 
句 调 八 幅 图 形 压 缩 存 贮 的 资料 文件 名 为 M- T- 工 X4L8)， 
30 句 调 压 缩 存 贮 程序 (文件 名 为 GP 2310)。 运 行 SP 2309 程 
序 后 ， 可 以 从 键盘 输入 1 一 8 各 个 数字 ， 从 而 手动 控制 显示 八 
幅 不 同 的 画面 。 

整个 程序 采用 总 控 的 方式 〈 郊 90 句 ), 从 而 可 以 任意 显示 
八 幅 画面 中 的 任 一 个 画面 。 

100 句 中 了 OKE 230，32 是 指 第 一 页 显示 区 ， $0 和 $ 1 
号 单元 中 的 A、 B 值 ， 是 指 压缩 图 形 存放 的 地 址 ， 而 110 名 
CALL 409% 是 调用 还 原 图 形 ，80 句 是 设置 第 一 页 高 分 辨 图 
形 全 屏幕 显示 。 

整个 运行 过 程 ， 由 于 采用 手动 控制 ， 可 以 自由 控制 显示 
时 间 ， 也 可 方便 地 自由 选取 任 一 幅 画面 显示 ， 停 止 运行 按 数 
字 6 0 2 

程序 SP 2309 清 单 。 

1 D 币 = CHR 熙 〈4) 3 HGR 

PRINT 中 囊 “ 有 LO 有 了 D M 一 T-TXZLS 

号 0 FRINT TD 甩 "BEBLOAD GPSTO 
3 N= 1 GOTO 8 

类 二 EEC 62384) 

TIX = 17O6 THNHEN  PFOFE 一 工 右 汪 各 全 
:Dx HOME : TEXT > END 

ceD IFXTY 1I76OR X 194 THEN 4 
7 NMX 一 7 DRE 一 3368 
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1 


SO  HCOLOR= 3 


85 FEGKE  - 16302,08 PFOKE -16300 
,OO PDKEE -14643040 POKE 
162937 ,3 


3D ON N GOTO 1203 1 0 44 避 二 村 各 吕 ， 
174 180 199 

1o0D0 RPROKE 口 , 台 : POKRFE 1 BR P 忆 OKE 之 本 全。 
也 


110 CALL 4099: GOTHU 404 


120 = 0OB = 64: GO0TO 109 
1SDAN:-=- 1lL6:B = 73: GO0T0 1 00 
1469 放 = 84:B = 84 GOTO TO 
1S 记 上 二 DB = 96 00TO 人 
16D6= DB := 1043 GDTO 了 人口 
17D AN= DR = 1103 GQTO | 局 吕 
1B80O AN=.0:8B = 1233 GOTOQO 1] OO 
190 ARA = 0:B = 1X348 GOTO 4100 
程序 GP 2310 清 单 。 


1OoOoO- 4C 7F lo AS5 EO 99 04 85 
1008- 06 A2 0Ot 86 04 AO 00 84 
1010- 02 84 05 84 08 Bl 00 DO 
tol8- ti8 E6 0D00 DO 02 E6 0 Bl 
1020- 00 85 08 E6 00 DO 02 E6. 
1028- 0l1 Bl 00 85 07 A5 07 CC6 
1o20- oO8 A4 oo2 91 05 E8 ES9 EO 
1038- BF 30 12 EO Oo2 A4 0O2 Co 
1040- 28 9Q0 08 Co 04 0 15 Ap 
.TO048- 00 84 co2 A6 04 0 5D 10 
105oO- 4 08 DO D9 E646 Oo DO BD 
10S8-- E6 01 DO B9 6 8A 29 CO 
106oo0- 85 065 4A 4A 05 5 85 05S 
1o68- 8A 85 06 0 9oA OA 26 0O6 
1070- oa 2 06 0A 6 05 AS5 口 6 
1078B- 29 1F Oo5 EO 35 06 60 An 
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158Boc- ol 84 9094 84 03 88 84 OO2 
1088- AS5 EGG 09 口 4 85 Oo 84. ODS5 
10920- Bl Oo bo oo 069 8 PA2 OO1 
10938- 86 98 85 97 A4 OO AG OZ 
10A0- 一 E8B EB ED BF 2930 DF CC3 Co 
1oAS- 28 30 06. Le D4 3D 18B AO 
10Bo 一 Oo 984 oo2 AR 04 8 3 29 
10OBB- 5D 10 B1 CS Do om 09 80O 
1D0CoO- CS5 D7 DO Oo E6 08 DO D4 
1oC8- Co bo8 48 AO oo AR 08 FO- 
1DD0- DOE EDO.O4 BO GoA 5 0O7 20 
10D8B- F2 410 CA DO FA FOOD 58 
1 口 忆 一 衬 口 F 之 19 8A 20 F2 TYO AS 
106E8S- oo7 so Fo 10 68 24 4 10 
1DFO- AS 60 91 00 EO DO DO 0O2 
1oFB 一 EGG Dll .60 


如 果 欲 自动 显示 八 幅 图 形 ， 可 运行 程序 eGP 2311， 每 幅 
画面 在 屏幕 上 的 显示 时 间 ， 可 改变 100 句 循环 终 值 。 
程序 GP 2311 清 单 。 


10 REM GF2s11 

20 D 车 = CHR 币 (4): HGR 

30 PRINT D 蔬 "BLOAD M-T-TXZLS" 
4 PRINT 了 下 "BLOAD 6GP<s1Q” 

sD FORN= 1 TOS 

36D “HECOLOR= 3 


SPFOKEKE - 16302,0: POKE  - 16300 
,0 POKE  - 16304,0: POKE 一 
16297 ,D 


7 ON N 6QTO 120,130,.140,150,160， 
170,180,190 
80 FORKE OA: FOKE 1,B: POKE 230， 
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0 CALL 49099299 
100 FOR I= 1 TO 20OD0: NEXT 1 
11o 660T 妆 昌 人 


12DA=D:B = 64: 6G0T0 80 
13D A= 16:B = 73: 60TO 80 
140D = 96:B = 84: GO0TO 80 
150 = DB = 396: 6G0TO 80 
1ca0A=0:B = 104: 60TO 80 
170 = DB = 110:， 60To 80 
138089= 0O:B = 1L123: GOTO 80 
190 A= 0:B = 134: 6G0T0 80， 
200 NEXT N 

2 TEXT : HOME : END 


第 十 一 节 翻 页 显示 


GP 2312 是 一 个 用 机 器 语言 编写 的 翻 页 显示 程序 ， 它 可 
以 使 送 入 内 存 的 第 一 页 画面 ， 从 左下 角 斜 着 翻 起 ， 并 露出 第 
二 页 画面 ， 直 到 第 一 页 画面 完全 被 第 二 页 画面 所 取代 。 全 部 
过 程 就 像 翻 小 人 书 一 样 ， 使 页 面 转换 更 有 一 番 情 趣 。 

GP 2313 是 一 个 用 BASI1 C 语言 编写 的 程序 , 运行 后 可 
以 看 到 上 述 两 个 画面 的 翻 页 显示 过 程 。 在 GP 2313 中 , 首先 分 
别 调 两 幅 画面 C1 和 C2 进 内 存 , 然后 调 机 器 语言 程序 CE 2312 
进 内 存 ， 用 HR : POKE --16302, 0 设置 高 分 辨 第 一 页 为 
全 屏幕 显示 状态 ， 青 执行 CALL 768 命令 ， 就 可 看 到 翻 页 
显示 的 过 程 ， 经 过 延迟 处 理 ， 再 不 断 循环 ,， 结果 周而复始 地 
看 到 第 二 页 画面 C 2 的 翻 页 显示 ， 而 要 停 止 ， 按 CTRL - 
RESETw 。 

程序 GP 2312 清 单 。 
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Do00- 4C 29 03 AS5 411 0A 0 29 
03508- 1C 85 15 AS 11 6A 6A 6GA 
635102 如. 29 的 的 .1 09 20 85 
0318- 4 AS 1 6 29 ECG -St4 
03S26=- 6 6 29 49250514 .95 1414 
032398- 6 9 00. 昌 4:2;:84 2 A2 
9330~ BF 86 4 有 2 03 .20 03 G5 
cxB- .AS 14 983 00 :65: 15. 69 20 
53546- 85 61 Bl oo 3t 14 EB .CO 
日 34 和 ~ 14E0 05 90 EB 98 A2 .00 
0350-- CO LEF 90 EL1 E6 02 A4 02 
D358- Ap3 FF C5 11 DO Di A2 .BF 
全 划一 全 全 :二 二 日 作 站 2 有 2 有 ES 02 二 
DZ 他 =- 革 全 -E9 0S -656 光 5 

癌 本 DO 一 有 与 站 呈 从 得 全: 
037B- 14 8S 00 65 1 
DO3SBo- oOlt B1 00 9 :1 
oOSBB-- EDO Oo5 9 EK 
0390- FF 'A2 00: 
0398- 11 A2 00 
CO3AO- CS 60 11 


程序 GP 2313 清 单 。 


工 口 民 华 卫 : GEP2 了 1 

章 也 向 ”= 人 HR 囊 《4 ) 

了 闪 FRINT” 汪 囊 "BLOAD Cl， 全 囊 2GOO1 
4 PRINT 了 D 熙 "BLOAD2- CE2 9 及 事 4000 
0D PRINT D 训 "BLO 人 由 GBP 二 1 3 人事 本 已 口 “ 
Go HGR : RPROKE 一 163502)0 

7D CALL 7t6 旨 

8BD FOR 斑 三 1 TO 300D: NEXT 

2 GOTG 6 


RUN GP23 志 w 后 ， 看 到 图 形 C 2 的 翻 页 显示 ， 
2.23 。 


本 二 Sr 


图 2.23 
图 形 C 2 的 完整 画面 ， 匈 图 2.24。 


eamawmah eeaaRmPinnaawRarnanewsi rwnamnvansanea 


图 2.24 
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如 果 将 程序 GP 2313 作 些 改动 ， 即 利用 搬家 的 方法 ， 可 
以 看 到 两 页 画面 轮流 翻 页 显示 , 机 器 语言 程序 仍 用 GP 2312， 
而 BASLC 程 序 改 用 GP 2314。 

程序 GP 2314 清 单 。 


5 CONERR GOTO 160 

IO REM  GP2314 

20 D 蔬 = CHR 店 〈4) 

30 PRINT D 币 "BEBLOAD Cl， 和 2000" 

4 PRINT D 蔬 "BLOAD C2， 和 蔬 40DO1" 

5 PRINT D 车 "BLOAD GF2S12 各 币 3001 

oOD，POKE 一 16297,0: PORKE 一 16302 
0 .FFOKE -16630408 PORKE  -- 志 
1 各 30 站 

70 FOR I = 1 TO 3000: NEXT 

BO 上 训 = "600032000。3SFFFM N D923G" 

30D FORI = 1 TO LEN (K 利 ): POFKE 5S 
Il1+I，ASC ( MID 秆 (K 串 ,TI,1)) + 
128: NEXT I: POKE 72,0 

1o0D CALL -144 

110 CALL 763 

1 2 K 囊 = 7140006000。.7FFFM N DB82SG" 

130 FOR ITI= 1 TO LEN (KK 第 ): PFOKE 

了 T，ASC ( MID 囊 (KK 韦 ,T，,1)) 

: NEXT IT: PFOKE 72， 昌 

14D CALL 一 144 

1509 GOTO 8 

,169 TEXT 5: HOME : END 


图 形 ( 1 的 原 图 象 ， 见 图 2.25 。 
图 形 C 2 的 原 图 象 ， 见 图 2. 26。 


程序 SP2315 可 以 显示 三 幅 画 面 的 翻 页 显示 ， 其 显示 顺 
序 为 C1, C2, C3,C2,C1。 
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: 2 二 捉 册 扩 和 下 放 环 : 


信 . 本 六 


和 il - 
站 更 


Te 
出 人 


1 必 后 呈 宣 全 人 -全 5 各 

Joynvavowgernsxnhavraanysvoovnrnasvuveerwunovuarse estvcnvvvowovvsr 1 
四 

-7 


图 2.25 


攻 
DPOKE1913,33 


D 


r 人 做 一 


全 融 肌 有 站 


图 2.26 
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纯 ONERR 60TOQ 局 


1 吃 


REM GPR2SlS 


206 D 贡 = CHR 叫 《4) 


全 
二 局 
4 与 
忆 
白马 


7 
强 局 
9 
1 OO 
1 1 
1 1 之 


1 4 


FRINT 了 蔬 "BLOAD CT1， 有 各 2 和 加， 
FRINT 也 韦 ”BLOAD 台 人 和 有事 嫩 白 口 白 ” 
FRINT、D 蔬 "BLOAD C3， 有 有 6009" 
PRINT D 贡 "BLOAD GP2S12，A 蔬 SOO" 
PFOKE 一 6297，0: POKERE 一 030O2 
0 PPOKE -~ 163504，0: POKE 一 
163OG6 
FOR TI = 1 TO 3000: NEXT II 
KK 机 = ”100002000。2FFFM N RDO00<30 
ODSFFFM N DB823G” 
FOR .I = 1 TO LEN (Kg) 3 POKE . 


ll1+ I，ASC ( MID 蔬 (K 书 ,IT， 1 1 


128: NEXT I: POKE 72 0 

CALL 一 144 

CALL 748 
kK 蔬 = "2000<6000.7FFFM N D8236G 


:FOR TI = 1 TO LEN (K$) : POKE 
Stt + TI，ASC { MID 韦 〈K 叫 ,TI,1) ) 
+ 12B: NEXT I: POKE 72;70 

“CALL - 144 

”CALL 768 


? Kg = "400052000-SFFFM N D8236" 


FOR I =.1 TO LEN (K 吊 ) : PFOKE 
Sll + IIASC ( MID 韦 〈K 币 ,IT,1)) 
+ 1i28: NEXT I: PORKE 72,0 
CALL - 144 本 

CALL 768 
ks = 4006e1060.1FFEM N 5ooox8 
000.8FFFM N D8236G， 

FOR I = 1 TO LEN (K$) : PORKE 
511 + I，ASC ( MID$ (K$,T，1)) 
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+ 1l128: NEXT I: POKE 72，0 
180 CALL 一 144 
2QJ CALL 7OB 


0 上 下 = “400D22O0O00 FFFM N DB8c36G6… 
<20 FOR II 1 TO LEN (上 $) : POFE 


511 + I，ASC ( MID 币 〈K 中 ,IT,1)) 
+ 128: NEXT I: PORKRE 72， 品 
23O CALL 一 144 
232 CALL 768 
3S0O0 TEXT : HOME : END 


图 形 C 3 的 原 图 象 ， 见 图 2.27。 


DPOKE191S, SS 


品 


km 


人 
1 一 


_ 图 2.27 
如 果 改 变 程 序 的 编制 方法 ， 还 可 以 有 更 多 的 翻 页 显示 方 
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式 ， 图 形 画面 也 可 以 取 多 页 ， 但 要 采取 一 定 的 措施 。 如 图 形 
压缩 存 贮 、 利 用 扩充 卡 、 语 言 卡 、 DOS 搬家 等 技术 ， 使 内 
存 中 可 以 容纳 更 多 的 画面 。 - 
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第 四 章 ， 处 理 


本章 介绍 最 简单 的 4 种 图 象 处 理 技术 ， 即 将 调 进 内 存 的 
任意 一 幅 图 象 ， 进 行 左 右 易 位 、 水 六 镜 象 、 垂 直 压 缩 、 成 倍 
翻番 处 理 ， 从 而 使 图 形 画 面 更 加 生动 活泼 、 丰 富 多 采 。 

上 述 4 种 处 理 技术 ， 都 采用 机 器 语言 实现 ， 而 为 了 能 对 
以 上 处 理 技 巧 连贯 起 来 操作 ， 编 制 一 个 BAS IC 程序 ， 将 是 
十 分 方便 的 ， 在 BAS IC 程序 中 调用 机 器 语言 子 程序 。 


第 一 节 左右 易 位 


GP 2401 是 一 个 图 形 左右 易 位 的 处 理子 程序 ， 它 可 以 将 
高 分 辩 率 第 二 页 的 图 形 ， 进 行 左 右 移 位 后 在 高 分 辩 率 第 一 页 
上 显示 出 来 ， 使 之 耳目 一 新 ， 生 动 有 趣 。  ， 

首先 ,将 欲 处 理 的 图 形 (例如 P2) 调 入 第 二 页 ， BLOAD 
P2,A$4000v 。 
”然后 ,执行 GP 2401 机 器 语言 图 形 处 理子 程序 , ] CALL 
768 ,) (或 兴 300G V )。 

最 后 ， 在 高 分 辨 率 第 一 页 画面 上 出 现 左右 翻身 了 的 图 
形 。 

为 了 看 清原 来 在 第 二 页 上 未 处 理 的 图 象 ， 以 及 在 第 一 页 
上 处 理 后 的 图 象 ， 可 以 用 下 面 程序 段 ， 实 现 分 页 显示 : 

= FORKE = 1 TO S 

3loO PFOkE -- 16297.0: PFOKE  - 1630 


264 


2,0: PFOKE - 16304,D: FORKE 一 
16300，0 
Se FOR IJI= 1 TO 2OOO NEXT 工 
330D POKEREE 一 16299，0 
340 FOR 工 =- 1 TO 2O0003 NEXT I 
235D NEXT 上 
so TEXT 3、 HOME : END 


第 二 页 上 的 原 图 形 ， 见 图 2.28(a)。 


下 
.8 ， 
.4 
本 ” 用 和 “> 
< 


四 
了 
本 
人 
时 


图 2.28(a) 
第 一 页 上 处 理 后 的 图 形 ， 见 图 2.28(b)。 
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图 2.28(b) 
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程序 GP 2401 清 单 。 


DoDoO- 6A2 no 86 48-20 11 F4 6 
DO308- AAA AS 26 .93D 9 60 NS5 27 
cto- 3D OO 6T EB EO CD DO EA 
osl8- Ah9 27 昌 5 DA ADO 600 A2 00 
DSS20- BD on 6 BBS 06 85.08 BD 
528- 6o .6 85 07 69 20.85 D9 
ODS30- ET D8 85 FF 06 FF 08 A9 
GE38- 00 85 OB 06 FF 66 FE EO 

340- DB 5 0B :CE9 07 DO F4 '28: 

3S48- oae FE 98 48 .4 OA AS FE 
0350- 51 06 68 AB ESB ED CO Da 
0358- C7 C6 DA C8 CO 28 DO BE 
口 卫 如 局 一 “ 白 口 本 


应 该 指出 的 是 ， 硒 止 述 机 器 语言 执 符 后 ， 有 时 会 出 现 不 

各 在 故 移 位 的 全 说 此 时 只 要 检查 一 下 下 EE 6 单元 的 值 。 可 
以 看 出 $ E 6 单元 的 值 不 些 是 20， 即 发 生 错误 。 应 重 置 即 : 
关 巨 6:20, 或 在 BASIC 状态 下 执行 POKE 230,32,w 即 
可 。 

程序 GP 2402 也 是 一 个 夸 看 易 位 (或 者 左右 翻身 ) 的 机 
器 语言 子 程序 ;* 疝 样 可 以 对 高 务 冰 图形 进行 了 左右 变换 。 

首先 在 监控 状态 下 健 入 GP2402 机 器 语言 ， 返 回 BASIC 
状态 后 ， 调 一 个 高 分 辨 图 形 进 内 存 ， 如 BLOAD P2，A4 
2000v ,然后 键入 .CALEL 768/， 则 在 高 分 辩 第 一 页 上 看 到 
的 是 翻 了 身 的 图 象 。 

当然 不 要 忘记 为 了 能 看 到 图 象 ， 必 须 用 软 开关 设置 


即 
POKE -16304,0， POKE 一 16297, 0: 
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POKE -16302, 0: POKE 一 16300, 0 
程序 GP 2402 存 贮 在 叫 300 一 中 353 单 元 中 。 
程序 GP 2402 清 单 。 


DOO- 5 DOD 2 0 0 OO SS EC 
0O3SOB- 20 11 F4 AD DO Bl 26 20 
03S10- SEE 03 AS EE BBS EF .938 AA 
ostle- BE IF OO 9 27 了 8 E93 寺 卫 
站 本 习 昌 一 从 呈 Bi 2 2D SSE 电 本 有 邱 EF 
口 荆 日 -- 91 26- BA 6B AS EE 931 O 
2330 一 CCB CO 1L4 DO DB E6 EC AS 
口 3B 一 EC CC9 CO DO C5 6D BG ED 
CS4O- 26 20 EE 6A A2 D7 6 206 
心 卫 4 呈 3 一 EE CA EO OO FO OOS 4C:46 
各 本 号 吕 一 日 本 A 和 ED 扣 口 


第 二 节 水 平 镜 象 

GP 2403 是 一 个 图 形 水 平 镜 象 处 理子 程序 ， 它 可 以 将 第 
二 页 高 分 辩 率 的 图 形 ， 变 成 对 称 显示 的 双 幅 图 象 ， 使 之 更 富 
有 艺术 性 。 

首先 ， 将 要 处 理 韵 图 形 〈 1 个 熊猫 ) 团 多 高 分 辨 率 第 二 
页 ， 然 后 再 执行 GP 2403 程 序 ( CALEL 768vw ) ,就 可 以 得 到 
图 2.9 的 图 形 〈 同 本 章 第 一 节 的 方法 ， 村 显示 图 形 ， 必 须 加 
适当 的 显示 程序 )。 

这 种 整 页 对 称 复制 图 形 的 技术 ， 在 设计 对 称 题 图 时 ， 特 
别 有 用 。 当然 ， 上 述 处 理 后 的 图 象 ， 水 平 压 缩 了 ， 显 得 有 些 
4 苗条 忆 

程序 GP 2403 清 单 。 
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DODO-- pa oo Sa 439 20 tt F4 648B 
DOB-~- 60 5 26 9D OO 6O A5 了 7 
DO 一 9D OO ol EB ED CO DOD EA 
bl8- AhA2 oo ho oo B4 FD 84 FE 
ceo0- 8B4 08 ED OO oo0 85 GO 85 
Os2oB- F29 BD 0 6l1 85 FA 18 65 
0330- 20 85 07 B1.06 85 COB 0C8 
33S8- B1 06 85 0 69 00 85 0D9 
0340-- EO.09 46 0OB 66 FD 46 0OB 
D348- oo FE AS 609 [EC9 03 DO FoO 
Oo0m- Ah9 oo 85 09 406 0OB 660 和 下 D 
0358- 46 0A 66 FE E6 09 46 DA 
OOO0O-- 6 FD 46 0 0 FE AS OO9 
OBS 一 C9 03 DO FDO CO FD 66 FE. 
OO3S7ZoO- 5958 48 AS FD Do5 FE A4 DO8 
0Os78- ?931 F9 OA OO OA oo6 FF OA 
口 人 DO 一 GO FF OA 6 FF OA 66 FF 
DOzsB8- ON 6 FF OA 606 FF OA 066 
OO0O 一 FF 28 66 FF AD 27 39 上 5 
D35289- 08 AB AS FF 91 F9 68 AS8 
OOSAO- C8 EO OOB Co 28 DO BC 上 和 
CO3SAB- EDO CO DO 01 60 4C 16 0 


图 2.29 
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第 三 节 垂直 压缩 


GP 2404 是 一 个 图 有 形 垂 直 压 缩 处 理子 程序 ， 它 可 以 将 第 
二 页 高 分 辩 的 图 形 ， 经 过 垂直 压缩 加 工 变换 ， 变 成 缩小 了 的 
图 象 ， 使 之 又 有 一 番 情 趣 。 

操作 方法 是 ， 首 先 将 要 处 理 的 图 形 〈 例 如 水 平 镜 像 处 理 
的 两 个 细 长 图 形 , 见 图 2.29)。 移 至 $ 4000， 然 后 执行 ALL 
768w ( 程序 GP 2404 应 先 调 入 内 存 ), 即 可 得 到 如 图 2. 30 的 图 
象 。 


程序 GP 2404 清 单 。 

OO- A2 oo 8 48 20 11 F4 68 
0308- AAA AS 26 9D 6060 60 A5 27 
0310- 9D 00 6l E8B EO CO DO ERA 
03sl18- A9 0o0 85 OoA A2 00 AO OO 
os20- BD oo 60 85 0646 BD 0D 61 
93528- 18 69 20 85 07 E8 BD 00 
0D330- 6o 95 08 BD 00 61 18 69 
0338- 20 8S5 09 Bl 06 11 08 85 
DOs40- DOB BA 48 A6 gd BD 00 60 
03486- 8BS5 FE BD 00 61 85 FF A5 
0s50- 0OB 91 FE 68 AA C8 CO 28 
0358- DO EL1 EB E6 0 EO CO DO 
0360- BD 60 
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第 四 节 成 倍 翻 外 


如 采 将 一 页 画面 上 的 两 幅 图 象 ,经 上 述 水 平 镜像 处 理 后 ， 
可 以 得 到 4 幅 图 象 ， 同 理 将 -4 幅 图 象 〈 在 一 页 上 ), 再 经 一 
水 平 镜 像 处 理 ， 则 可 得 到 8 幅 图 象 ， 这 就 是 图 象 成 倍 翻番 。 
下 面 是 一 些 实例 。 

原 第 二 页 上 的 两 个 熊猫 ， 经 GP 2403 程 序 处 理 后 ， 变 成 
4 个 熊猫 ， 见 图 2.31(a)。 


2.31(a 广 
原 第 二 页 上 的 4 个 熊猫 ， 经 GF 2404 程 序 处 理 后 ， 垂 直 


方向 上 压缩 了 ， 见 图 2.31(b)。 


人 2 


图 2.31 (b) 

对 GP 2401， GP 2403，GP 2404 3 个 机 器 语言 子 程序 ， 
连贯 起 来 的 操作 ， 请 见 GP 2405 程 序 ， 这 样 可 以 简化 操作 手 
续 ， 由 程序 自动 控制 完成 ， 并 可 以 连续 看 到 屏幕 上 各 种 变化 
的 图 象 ， 棚 棚 如 生 ， 引 人 入 胜 。 

程序 CP 2405 清 单 。 
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335060 


7Q0 


所 90 


D 唐 = CHR 韦 《4) 

PRINT D 韦 "BLDAD P2,A 囊 4000" 
PRINT DB 贡 "BLDAD GF2401" 
POKE 230, 32. 

CALL 768 

GO0SUB 300 

GO0SUB 360 


CALL  - 144 
PRINT D 蔬 "BLOAD GP24031 
CALL 768 

GOSUB 300 

GOSUB 360 ? 


cEALL  -- 144 

PRINT D"BLOAD GP2464” 

HGR :， POKE 一 16302 

CALL 768  ， 

POKE  - 163005 6 

FOR I = 1 TO 2000: NEXT 工 
TEXT : HOME : END 

FOR 上 = 1 TO 3 

POKE  - 16297,0: PORKE 一 1630 
2 03 POKE  -- 16304，03 POKE 一 
16300 0 

FOR I = 1T TO 2000: NEXT 1 
PFOKE -~ 16299，0 

FOR I = 1 TO 20o00: NEXT I 
NEXT KK: RETURN 
X 囊 = "4000<2000。.3FFFM N D8236G" 


FOR I = 1 TO LEN (X 革 ) : FOKE 
5l1 + I，ASC ( MID 蔬 (X 囊 ,TIT.1)) 

+ 428:，， NEXfT TI: POKE 72,0 
RETURN 
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第 五 章 合并 显示 


利用 中 华 学 习 机 或 APPLEI 的 高 分 辩 作 图 时 ， 有 时 
需要 将 两 页 或 更 多 页 画面 合并 显示 ， 或者， 在 绘制 一 幅 比较 
复杂 的 图 画 时 ,为 了 尽快 完成 ， 可 以 将 这 幅 画 分 成 几 个 部 分 ， 
分 头 由 几 个 人 同时 绘制 ， 然 后 再 合 而 汶 二 ， 这 就 需要 一 个 图 
形 合并 程序 。 

图 形 合并 锤 序 , 可 以 采用 BAS IC 语言 编制 但 速度 较 
慢 ， 也 可 以 采用 机 器 语言 编制 ， 其 执行 速度 可 以 大 大 提高 。 
再 巧妙 地 利用 屏幕 软 开 关 ， 可 以 实现 屏幕 方式 的 快速 转换 ， 
从 而 使 图 形 画 面 更 加 生动 活泼。 

本 章 首先 通过 两 幅 画 面 的 合并 过 程 ， 介 绍 图 形 合并 的 基 
本 方法 和 技巧 ,然后 通过 重新 组 织 程序 ， 采 用 分 页 显示 技术 ， 
从 而 使 画面 更 加 多 样 ， 最 后 再 介绍 多 幅 画 面 合成 的 方法 。 


第 一 节 。 两 幅 画 面 的 合并 


设 有 两 幅 图 形 资料 GMS 8 和 了 2, 它们 分 别 存放 在 磁盘 
片 中 ， 前 者 在 $2000 一 $ 3 FFF 中 ， 后 者 在 $4000 一 
$5FFF 中 ， 现 在 的 任务 是 将 这 两 幅 画 面 合 并 在 一 张 画 面 

首先 , 在 监控 状态 下 , 按 入 机 器 语言 合并 子 程序 GP 2501， 
存盘 备用 (BSAVE GP2501，A$300，L$26) 。 
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全 了 串口 一 
性 避 日 一 
CC 了 全 一 


马子 革 全 一 


人 本 妆 操 一 


A9 OO 


AAA “00 
AC OO 
CB8 DO 
Olt C9 


OO 
口 之 
台 必 
EC 和 
串 志 


全 9 
后 9 
FO 
忆 : 
ED 


袜 口 
40 
局 盖 
EO 
如 品 


85 oO 
8S OO3 
91 OO 
已 1 全 号 


然后 


在 BAS IC 状态 下 , 键入 程序 SP 2502， 存 盘 备 


用 (SAVE GP2502) 。 


10 D 囊 := CHR 桔 - (4) 

29 FRINT D 蔬 ;3"BLOAD GMS8， 

30 “PRINT DBLOAD P2， 

40 PRINT D 蔬 ;ji "BRUN GP25011 

so POKE -~- 16297,0: FOKE  - 16302 
,0: POKEE  - 16304,0: POKE  -- 
1630O 

8 END 

最 后 ， 运 行 GP 2502 程 序 ， 即 可 看 到 如 图 2.32 合 并 的 图 


图 : 2.32 
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形 。 应 该 注意 的 是 ，BL OAD 命 令 只 能 把 图 形 信息 调 入 图 
形 存 贮 区 ， 它 本 身 不 包含 显示 功能 ， 为 此 ， 用 软 开 关 设置 显 
示 方 式 ， 其 中 P OKE-16300，0 是 指 在 高 分 辨 第 一 页 图 形 
区 显示 图 形 。 

图 2. 32 也 可 以 打印 出 来 ,只 要 在 程序 CL 2502 的 基础 上 ， 
加 上 几 个 语句 即 可 实现 ， 见 程序 GP 2503。 

程序 GP 2503 清 单 。 、 
10 D 蔬 = CHR 机 《4) 
29 PRINT D$3 "SBLOAD GMS8" 
30 PRINT D$"BLOAD P2" 
40 FRINT D$3 "BRUN GP2501" 


SO0，POKE  - 16297,6: POKE -16302 
,OPOKE -- 16304,0: POKE 
16300，0 

60 PR# 1 


70 “POKE. 191 了 S。 圭 

8O PRINT CHR 世 (17) 

90 PR# 9 

100 TEXT .: HOME : END 

其 中 了 OKE 1913 ,1 是 指 第 一 页 高 分 辩 作 图 区 ， 执 行 
PRINT CHR$(17) y 才能 打印 出 第 一 页 ' 面 内 的 图 形 
(或 按 CTREL-Q)。 

如 果 和 希望 既 看 到 合并 的 图 形 ， 又 看 到 另 一 页 ( 指 第 二 页 ) 
的 图 象 ， 只 要 加 分 页 显示 程序 段 即 可 ， 程 序 GP 2504 可 以 完 
成 这 个 功能 。 

程序 CxP' 2504 清 单 。 

10 D 重 = CHR 熙 〈4) 


20 PRINT D$3"BLOAD GMS8 
3S0 PRINT D 蔬 ;s"BLOAD P2 
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40 PRINT D 囊 ; "BRUN GF2501" 

50  POKE  - 16297,: FOKE 一 146302 
,0: POKE  - 16304,0: PFOKE 一 
1630040 

60 FOR TI = 1 TO 1000: NEXT 1I 

70  PFOKE  - 16299,0 

80 FOR I = 1 TO 1000: NEXT II 

30 GOTO 50 

100 TEXT : HOME :， END 


如 果 删 去 GP 2504 中 的 30，40，70 和 80 句 ， 看 到 的 应 是 
GM9q9 8 图 和 象 ， 见 图 2.33。 


| | 下 让 


| 可 多 1 | 
计 民 辣 ， HS 

ee 0 1 同人 R oa 
tl Ne 

站 二 人 由 UN 由 代 全 和 六 | 

1 有 人 | 人 内 风 

Srin 提 人 fn mn | 肥 0 
、s 必 Nt 和 珊 


图 2.33 


和 间 理 ， 删 去 GP 2504 中 的 20，40，60 句 ， 以 及 50 句 中 的 
POK 已 -16300，0, 再 重新 运行 时 ， 看 到 的 只 是 一 只 熊猫 图 
象 。 见 图 2.34。 

应 该 特别 指出 的 是 ， 如 果 已 经 执行 了 GP 2504 程 序 ， 则 
内 存 中 第 一 页 和 第 二 页 都 已 存 贮 了 图 象 信息 ， 则 上 述 两 种 删 
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去 方法 将 会 失效 ， 最 好 的 办 法 是 关机 重 来 ， 然 后 照 删 去 程序 
段 的 方法 处 理 。 


以 上 实例 说 明 ， 采 用 图 形 合并 的 方法 ， 使 画面 更 加 丰富 
多 采 ， 而 关键 在 于 调用 合并 机 器 语言 子 程序 aaP 2501。 


第 二 节 ”合并 分 页 显示 


有 了 上 面 的 基本 知识 ， 我 们 可 以 重新 组 织 程序 ， 使 画面 
显示 方式 多 样 ， 更 加 生动 。 下 面 提供 一 个 程序 实例 ， 见 程序 
CPP 2505。 


程序 CF 2505 清单 
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10 D 吕 .= CHR 蔬 (4)》 

20 和 RINT 和 和 LOAB- 1 

30 PRINT D 蔬 3 "BLOGOAD -P4? 

40 FORK=1TOS 

SC .POKE  - 16297,0: POKE 一 163D2 
03 POKE 一 16304，0: PORE 


163 OO 

GO FOR TI = 1 TO 20005 NEXT 
5 PORKE 一 10606299 

7D FOR JI- = 二 TQ 2000: NEXT 
SO NEXTR 


100 -PRINT D 蔬 13" BRUN GPS5DT1 
1095 PRPOKE 一 163009 
1 1 FOR 工 二 1 TO 40001 NEX 卫 
115 N = 300 
:和 业 2O :EBDKRKE 一 .299 ， 品 
有 和 KE -16350050 
人 
. 生 尘 4 TF 雪 尖 - oO=THEN .55 
1 4 品 60TO 1 129 
155 FOR kk = 1 TO 10 
14D POKE -- 16297,0: PORKE 一 163O0 
2:0: POKE -~- 16304，0: FOKE 一 
63SODy 


167 FOR II = 1 TO 2000: NEXT 
17ZO PPOKE 一 16299，0 
175 FOR TI = 1 TO 2000: -NEXT 


Teoc NEXT KK 
OO TEXT 2 HOME : PRINT ; "SEE YQU 
LETER LE END 
行 程序 GP 25 的 后 ， 首先 看 到 有 两 幅 商 分 页 显示 ， 一 
朵 是 一 天 弹 花 ， 另 所 本 是 全 计算 机 ， 它 加 显示 ， 生 
出 现 5 次 ( 见 40 一 8 和 多)。 稍 等 片刻 后 ， 看 到 两 幅 画 合 在 一 起 
( 见 100 一 110 句 六 往 后 看 到 的 是 鲜花 不 断 在 计算 机 图 案 二 问 
烁 〈 见 115 一 140 句 ), 最 后 看 到 的 是 分 页 显示 合 并 的 图 案 和 分 
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开 的 图 案 ( 见 155 一 180 句 ) 共 10 次 。 而 当 屏 幕 上 出 现 “ SEE 
YOU “LETER !” 时 ， 程 序 结束 。 

下 面 给 出 运行 中 的 几 幅 图 案 : 

工 ]1 图 形 见 图 2.35 (a) 

P4 图 形 见 图 2.35 (b)。 


口 所 启 吕 口 已 
颁 轴 局 口 口 听 口 己 口 品 口 口 品 品 口 制 
击 戎 国 居 一 一 一 一 一 一 一 一 


图 2.35( 图 2.35( b) 
合并 图 形 见 图 2.36。 
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第 三 节 ”机 器 语言 合并 图 形 的 方法 


用 机 器 语言 编写 的 合并 程序 ， 其 合并 速度 是 非常 快 的 ， 
下 面 再 提供 一 个 合并 程序 ， 它 存 贮 在 $ 6000 一 $603 入 中, 取 
名 为 GP 2506， 并 用 BSAVE GP2506，A 下 6000,， 工 $3 
B 存 盘 备 用 。 

机 器 语言 图 形 合并 子 程序 G P 2506。 


aoOn0O- nn FF Bs oo 8985 08 A9 1F 
DB 85 D07 9 3F 8B5 609 EG 筷 各 
mtD-- DD 0 ES DOD7 EG DB DaQ 2 
ol1S- ED 8682 00 AN Da DO oOB 
De 一 和 tt OBS A7 FF C5 OO7 DO EO 
GeozB-- Ah FF CD OO DD EDO BD SO0 
白 避 一 SDDS bo gBD So CD D 
恕 口 卫 日 一 号 7 CO 6 


2.37 


279 


为 了 观察 两 幅 图 形 的 合并 效果 ， 谁 按 下 述 步骤 执行 

.BLOAD GP2506v 

.BLOAD PIC1Vv 

-BLOAD MLWy 

.CALL 24768v 

其 中 图 形 P IC1 存 贮 在 $2000 一 $3F FF 中 ,图 形 ML W 
存 贮 在 $4000 一 $5FF 下 中 。 合 并 的 图 形 如 图 2.37 所 示 。 


第 四 节 “用 BASIC 程序 合并 图 形 


图 形 合并 也 可 以 用 BASIC 语 言 编程 实现 ， 下 面 是 两 个 
实例 ， 全 

实例 1] ， 是 用 高 分 辩 作 图 语句 编制 的 ， 共 有 5 个 画面 ， 
为 了 显示 5 个 图 形 的 合并 过 程 ， 程 序 中 安排 了 G 五 工 语 柯 ， 
程序 运行 后 首先 显示 一 个 从 左边 开始 的 由 上 至 下 逐 行 画 线 的 长 
条 .( 见 300 句 )， 待 长 条 显示 完成 后 ， 按 一 下 任意 键 ， 在 屏 荐 
下 面 由 左 至 右 画 隔行 线 〈 见 400 句 )， 再 按 下 任意 键 ， 屏 幕 右 
边 由 右 到 左 紧 直 画 线 〈 见 500 句 )， 再 接任 意 键 ， 在 上 方 出 现 
由 左 到 右 、 由 下 到 上 隔行 画 线 ( 见 600 名 )， 秃 扫 按 和 任意 键 后 ， 
屏幕 中 央 出 现 又 一 个 图 案 (网 700 )， 最 后 经 710 名 延迟， 图 形 
结束 。 

这 里 仅仅 作为 一 个 例子 ， 说 明 合并 图 形 的 一 个 方法 ， 不 
难 用 此 种 方法 ， 画 一 个 辅助 教学 的 几何 图 形 ， 由 于 可 以 用 手 
控 执 行程 序 ， 比 较 形 象 直观 。 

程序 G P 2507 清 单 。 

引 HOME 

10 HGR2 : FOKE 16302,0: HCOLOR= 2 


280 人 


20 FORJ=0OTO4 
40 60SUB 200 


只 


S50 GET 长 名 于 

70 NEXT J. | 

20OO DON IJ 二 . 66TO- 300， 400， 500 609 
7OO 


SO0 FOR I = 0 TO-1390: HPLOT 0,I TO 
so,1I: NEXT I: RETURN 
400 FOR I = 190.TQ 150 STEP -~ 2: 
HPLOT .0,I TO 279，T: NEXT 了 
410 RETURN 
500 FOR I = 279 TO 230 sieF 一 二 : 
HPLOT f,0 TO TI:.130:，NEXT 1I 


S19 RETURN 

a00 FOR TI = 0 TO 40 STEF 2: HPLOT 
D， -40 - TI T0 279,40 - I: NEXT 
I: RETURN 


7O0 FOR II = 140 TO 昌 2 STEP -一 1 

Z05 HPFLOT Is 1I TO 2793 一 TI 工 TO ， 279 
-- - 工 ， 495 - ITI TO TI ， 190-.、 江 TO 
TIT1 EXT IT 

71loO FOR I = 一 1 TO 3000: NEXT TIT:， TEXT 
: HOME- END 


运行 结果 ,网 图 2. 38。 
实例 2 编制 原理 同 实例 1, 只 不 过 开始 用 D O S 命令 调 一 
幅 已 画 好 的 图 形 ， 也 是 按 空 格 键 (或 任意 键 ) 执 行 操作 过 程 。 
本 程序 易 懂 ， 读 者 可 以 自行 运行 ， 体 会 其 中 图 形 合并 的 乐 
趣 。 - 
程序 G PP 2508 清 单 。 
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了 性 


过 全 


写 日 
和 4 口 
与 全 
白 ( 
7 
如 人 
?0 


t () 人 
1 局 
1 忆 已 
1 
1 4 
15oO 


1 和 0 
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HOME 

HGR : HECOLOR= 7: POKE 一 二 台 3 之 
人 

FOR I = OTO 5 

D 和 车 = CHR 划 (4)， 

GOSUB 9O0 

GET 上 和 唐 

NEXT 

TEXT : HOME : END 

ON I + 1 6G0TO 100.120130，140， 
1 So TO 
PRINT D 蔬 "BLOADHY .P 户 ICT” 
60TO 工人 oO 
HPLOT 0,O0 TO 279,0: RETURN 
HPLOT 279,0 TO 279，1906: RETURN 
HPLOT 279 1590 TO .DOt903 RETURRN 
HPLOT bl90 TO oO RETURN 
FOR I = TO 40: HPLOT IO TO 


TI, 19290: HPLOT 279 一 IO TO 279 


- I,1290: NEXT 
170 RETURN 


180  PFOKE  - 16300,0: POKE  - 1630 
4,0: POKE  - 16297,0:，POKE  - 
16302，0 


1930 “GOTO 170 
运行 结果 ， 见 图 2.39。 


图 2.39 
第 五 节 ”多 幅 图 形 的 合成 


利用 剪辑 和 合并 技术 ， 可 以 完成 多 幅 图 形 合成 。 例 如 ， 
将 4 幅 (原则 上 可 以 很 多 幅 ) 不 同 的 图 形 ， 经 过 剪辑 程序 处 , 
理 后 ， 再 用 合并 技术 ， 合 成 在 一 张 画面 上 。 

图 2.40 是 4 幅 图 形 合成 的 实例 。 

为 实现 多 幅 图 形 的 合成 ， 需 要 两 个 工具 软件 ， 一 个 是 前 
辑 软件 ( 见 程序 DYJ GCU ), 它 完成 对 单 幅 图 形 和 多 幅 图 形 
的 剪辑 .编辑 加 工 任务 ， 一 个 是 合并 软件 ( 见 程序 HB C V )， 
编辑 软件 ( 见 程序 DYJG C U ) , 它 完成 两 幅 或 更 多 幅 图 形 的 
合并 工作 。 
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呈 9 
长 
0 


[二 外 


和 


由 于 多 幅 图 形 合成 技术 比较 复杂 ， 现 将 操作 步骤 详 述 如 


下 : 


“LOAD DYJGCUJJ ;， 调 剪辑 编辑 程序 
.RUN DYJGOU vv， 运行 剪辑 程序 
.出现 INPOT PICT 


NAME : 按 入 TOAL ;调处 理 的 图 形 ， 如 TOAL 
进 内 存 


“ 键入 0 ， 不 用 回 车 ， 对 图 形 进 行 下 移 ( 按 D 键 六 左 移 


( 按 工 键 )、 反 相 ( 按 C 键 )、 对 称 
( 按 X 键 ,或 Y 键 ) 处 理 ， 直 到 满 
意 为 止 


一 AA 一 


。 按 CTRL-RESETJw;， 中 断 程序 运行 
“键入 CALL-151;， 进入 监控 状态 


2814 


。 关 4000< 2000. 3FFFMvw ;将 原 图 形 搬 至 高 分 辨 率 第 


国门 


“。 按 CTRL-RESETw， 返 回 B ASIC 状 态 


。 THGR v ; 清 第 一 页 画面 

。j 下 UN 了 

。? “出 现 ? 表示 询问 待 处 理 图 形 
移 至 何 处 


“键入 0,0,0,0,16，93Jw; 键入 移动 的 坐标 
" 按 CTREL- RESET vw; 中 断 程序 执行 
“BSAVE TXl， A$2000 
EL 有 书 2000v ;将 剪辑 后 的 图 形 存盘 ， 文 件 
名 为 TXT ， 
“。RUN 10v ， 在 出 现 
人 PICT NAME; 
， 重 复 上 述 过 程 5 处 理 加 工 第 二 幅 图 形 ， 第 三 
幅 、 第 四 幅 …… 等 等 。 
“BLOAD HBCUA 调 合并 程序 进 内 存 
。BLOAD TX1L， 人 和 2000.2 调处 理 加 工 后 的 图 形 ， 


如 个 X1, 进 第 一 一 页 
.BLOAD TX2，A 忆 4000.i 调处 理 加 工 后 的 图 形 ， 
如 下 X2， 进 第 二 -页 
“CALL 768v ; 调 合并 程序 
=>RUN 6xw ， 完 成 两 杠 图 水 合并 


。 按 CTRL-RESETvY:， 中 上 断 
“BSAVE TXl 一 TX2， 
A$2000， 革 惠 2000v  . ， 将 两 幅 合 成 的 图 形 存盘 
“BLOAD TX3, A 甩 2000V 
“BLOAD TX4, A 蔬 2000y 
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.CALE 768v 
“RUN 6w; 完成 另外 两 幅 图 形 ， 如 TX3，TX4 的 
合并 工作 
“ 按 CTRL-RESETw， 中 断 
.BSAVE TX3 一 TX4， 
A 书 2000，L 甩 2000 w， 将 合成 后 的 第 三 幅 ( TX3 )， 
第 四 幅 〈TX4) 图 形 存盘 
.BLOAD TXI 一 TX2,A 书 2000 必 
. BLOAD TX3 一 TX4, 和 有 书 4000v 
“CALL 768 
.RUN 6v ; 完成 4 幅 图 形 的 合成 
. 按 CTRL-RESETw， 中 断 
.BSAVE TOAL，A 书 2000，L $2000， 存 4 幅 合 
成 的 图 形 ; 取 名 为 TOAL， 备 用 


。P 了 PR 并 1 ; 接 通 打印 机 
“POKE 1913，33v/ :选取 高 分 辩 第 一 页 图 形 ， 即 
4 四 合 成 图 形 


UV 


.PRINT CHR$(17)v 
或 按 CTRL-Q yy ;打印 4 幅 合成 图 形 . 

上 述 各 项 操作 ， 必 须 按 步骤 严格 顺序 执行 ， 虽 然 比 较 复 

但 只 要 反复 多 练习 几 次 ， 就 会 熟 能 生 巧 。 


程序 DYJGCU 清 单 。 


REM  TXJJ 

INPFUT ABC D,E， F 

POKE: 口 ， 且 : PDOKE 1 ， Ba PFOKE 6 kt: PFOKE 
7:D: POKE 日 'E， POKE ?7， F 

POKE 1 和 之 POKE. 230， 

PRINT CHRs 《4) “BRUN TXaol As6o 


4 JJ 一 


Cn 全 
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1 ~ 
6 PFGOKE  - 416297,0: POKE  - 16302， 
0: PFOKE  - 16304,0: POKE -1 
白地 人 《) - 
7 END 
10 REM ”PRO-i-J6CU. 
12 D 惠 = CHR 蔬 (4) 
1 了 3 PRINT D$3 "BLOAD RRG" 
15 PRINT D 蔬 8"BLOAD JGCU" 
20 INPUT "INPUT PICT， NAME : "5K 囊 
30 .FRINT D 蔬 "BLOAD"K 贡 "，6$2000 
so HOME 本 
60  PFOKE - 16304,0: PFOKE  - 16297 
0: POKE 一 16300， 9 
70，POKE  - 163019: POKE" 330,3S2 
80 A$ = "XAODEXIT ALOHALF PAGE-NOR- 
SYMM CQOPY A20HALF PAGE INV-SY 
MM COPY NSUHALF PAGE IOR-SAME 
COPY A4DHALF PAGE INV-SAME C 
OFY XSUALL PAGE NOR-SYMM COFY 
ADALL PAGE INV-SYMM COPY AN7 
OALL PAGE NOR-SAME COPFY XBDAL 
L_PAGE INV-SAME COPY AS9UREBLO 
AD 人 
30 HTAB 1 VTAB _ 23: PRINT “LEFT 证 
(有 蔬 ， 39) 3A 贡 = MID 韦 〈A 记 ,2) + 
上 LEF 了 T 审 《全 币 * 二 ) 0 
535Q= PEEK ( - 16384) :IF QQ 12 
旨 THEN FOR Q = 1 TG 109: NEXT 
:Q = FRE (9O):，G60TO 50 


400  POKE - 16368,0:Q = Q - 176: IF 
Q@<“ 0 ORQ >9 THEN 50 

110 IF Q = 0 THEN 300 

120 IF Q=9 THEN PRINT : 60TO 5 


口 
1 FORR=1 TO INT (Q7/7/ 2 + 口 。 
与 ) 


140 READ A,B,C,D,E,F,G,H,I,J,K,L， 
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My N,， OP 


1 SO POKE 781， A: POKE 796,B: POKE 
BlLoOC: POKE -Bi1， D 

1o6oD POKE 81l12,E: POKE Blzs,F: POKE 
Bl14,6: POKE 93 H 

170  POKE 934，I: POKE 旨 .35 J: POKE 
日 SO 六 POKE 号 与 1 ,上 L 

180 POKE 869,M: POKE 930,N: POKE 
348,0: POKE 954 .PP 

1930 NEXT .R: RESTORE … 

200D IF INT (@/2) = Qy/ 2 THEN 

POKE 822.69: 60TO 220 

2to  PFOKE 822,，37 

220 CALL 768 

230 IFQ >4 THEN PORKE - 16299， 
0: POKE -~ 16302,0: POKE 230， 
64: FOR S = 0 TO 2000: NEXT 

240 GO0TO 60 

2S50 DATA 79,119,251 162 7 70251， 
229 ,235,133,254,20,64，306，32，3 
咏 

260 DATA 60,10D,250 和 ,7606523234， 
76,71,3,234,20， 各 4 了 下， 本 ， 2O 

270 DATA 79.119,251,162， 7，70，2531， 
229 ,235， 1S35 254，40， 96， 68， 各 4， 王 
咏 

28O DATA 40D,80,25D,76 523234， 
76,71 ,SS,234， 4 口 ， 6， CB,G4，0 

3OOD CALL 24570 

其 中 PR O 程 序 清 单 。 

Don 2 AS DO 20 25 03 09 二 和 

oz0OeB-- SBS5 FC 8S EE A9 4F 85 FE 

ozsl1o- 8S5S EF 20 .25 03 9 50 85 

osleBe- FC SS EE A9 77 85.FE 85 
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局 本 过 向 -- 
名 瑟瑟 
避 芋 站 一 
怕 卫 本 全 一 
全 奸 人 -~- 
局 世 才 各 一 
已 卫 号 人 
司 卫 妇 一 
全 六 加 总- 一 
已 忆 各 人 各-- 
(7 人- 
已 马 7 台 一 
癌 本 总 全 一 
已 节日 全-- 
着 半 号 司 -- 
口 卫 全 -- 
各 汪 各 后 -- 
避 卫 有 马 一 
人 信和)-- 
口 卫 刀 台 一 


EF 
F C 
F 人 
旨 


人 


FA 
ESB [ 


18 
69 
FA 
A5 
FE 


各 忆 


3 
FC 
ED 
FF 
EC 
ED 
FF 


程序 JGCU 清 单 。 


各 口 忆 忆 一 
全 癌 了 SO 一 


6D3S8-- 


白 口 4 一 
648 一 
4050- 
0058- 
5060- 
oO68- 


有 品 


内 口 


A9 3 


各 忆 


3 订 
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6070 一 
CO078-- 
6080- 
4088- 
如 口 9~ 
Go8 一 
白 必 有 局 一 
CoOASB- 
4DRO- 
如 局 下 强 一 
白 吕 CC 口 一 
GOGtC 旨 一 


GODO- - 


GODB- 
心 CE 马 一 
心 避 信号 一 
白人 记忆 一 
GwF 旨 一 
如 1OOD 一 
lo8B- 
各 了 局 一 
如 1 上 强 一 
白 120- 
. 必 T 扣 一 
必 | 划一 
133 旨 -- 
各 1 40- 
如 1 4 唱 一 
白 与 避 一 
恕 1 与 日 一 
如 1 各 局 一 
妨 1 和 B- 
妨 17O- 
cl7Be-~ 
如 荆 便 口 一 
如 1 全 旨 一 
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合并 程序 HB CU 清单 。 


soom AD OO 85 oO hh9 20 85 0 
oso08- A9 0 85 02 hh9 40 85 3 
osSlo- GAO OO BTL De FO OoO2 91 609 
os1l18- C8B DO F7Z7 E6O 0663 EGG DO1 5 
OO32O-m- DO 9 40 90. ED 6o 


第 六 节 ”图 形 合成 的 简便 方法 


在 第 五 节 中 ， 我 们 介绍 了 多 幅 图 形 合成 的 方法 和 详细 操 
作 步 又， 不 难 发 现 上 述 操 作 过 于 频繁 ， 且 不 易 记 忆 。 现 介绍 
一 个 4 幅 图 形 合成 的 实例 ， 程 序 和 操作 都 十 分 简单 。 

其 基本 思想 是 ， 将 高 分 辨 图形 第 二 页 的 画面 上 ， 剪 下 一 
块 图 形 ， 贴 到 高 分 辨 图形 第 一 页 的 指定 位 置 上 ， 就 可 以 实现 
多 幅 图 形 的 合成 。 全 部 操作 只 用 了 两 个 程序 : TXJJ 1 和 
P 30-3。T 了 TXJJ ! 为 完成 剪辑 、 合 并 的 机 器 语言 程序 , P 30-3 
则 是 一 个 B AS IC 程序 , 它 实现 对 剪辑 、 合 并 程序 TXJJ 1l 的 
控制 。 

程序 P 30-3 可 以 十 分 方便 地 一 次 完成 四 幅 图 形 的 合成 。 
该 程序 运行 后 首先 清 屏 ， 然 后 调用 200 名 开始 的 子 程序 ， 在 : 
高 分 辩 率 第 1 页 上 表演 一 个 画 线 图 形 ， 接 着 调用 机 器 语言 
程序 了 XJJ1 进 内 存 , 再 用 50 一 140 句 的 循环 ,分 别 调 Y1 一 了 4 
四 幅 图 形 ， 每 调 一 幅 图 形 执行 一 次 CALEL 24576, 按 一 定 坐 
标 剪辑 并 放 在 高 分 辩 率 第 1 页 上 ， 当 循环 全 部 完成 后 ， 四 幅 
图 形 即 已 合成 完成 。 经 150 名 延迟 一 段 时 间 后 ， 执 行 160 句 ， 
将 4 三 合成 的 图 形 以 文件 名 X 存 盘 ， 最 后 是 画 线 清 屏 ， 程 序 
结束 。 
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为 方便 上 述 操 作 ， 程 序 P 30-3，TXJJ1 以 及 Y1 一 Y4 
4 幅 图 形 资料 ， 应 放 在 同一 张 盘 中 。 
程序 P 30-3 清 单 ; 


10 “REM “PS0-3 

20 D$ = CHR 蔬 (4): HGR :，POKE -1! 
6302,0 

xs0 PRINT D 熙 "BLOAD TXJJ1w 

40 “HCOLOR= 7， FOR IT = 0 TO 95: HPLOT 
0,I TO 141,I:， HPLOT 141,491 -- 

TYTO 279,191 - I: NEXT TI; 

45 FOR I =01T095:， HPLOT 0,191 - 
I TO 141,191 -~- TI:， HPLOT 141，,I 
TO 279,I:， NEXT II 

so FOR I=11ToO4 

60 PRINT D 蔬 "BLOAD GT 内 4000" 


7 IFI= 1 THENA = 0PB = OIC = 
DID=OE = 19:F = 9 
72 IFI=2 THENA = 19:B = 0:C = 


19:D = 0:E = 395F = 95 

74 IFI=S THEN A = 0:B = 9353C = 
oO:D = 95:E = 1938F = 191 

7 IFI=4 THENA= 19:B = 953C = 
19:D = 95:E = 39:F = 39T 

78  POKE 0,A: POKE 1 B3 P6KE 6 C3 POKE 
7,D:; POKE 9,E: POKE 9 F: POKE 
16,32: POKE 230， 323 CALL 2457 
各 

80 NEXT I 

100 FOR I= 1 TO 20008 NEXT I 

“120 TEXT 3 HOME : END 


变量 说 明 ，A 、B 为 要 搬移 到 目的 区 域 的 左上 角 坐 标 ， 
前 者 为 X 方 向 ,后 者 为 了 方向 (下 同 ), 它 们 存放 在 $00 和 书 01 
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单元 中 ， 在 B ASIC 程序 中 用 POKE 0，A:POKE 1,B 
设置 。 

C 、D 为 要 搬移 区 域 的 左上 角 坐 标 , 它们 分 别 存放 在 书 06 
和 书 07 单 元 中 , 同 理 用 EOKE 6，C:POKE 7,D 设 置 。 

已 、F 为 要 搬移 区 域 的 右 下 角 坐 标 ， 分 别 存放 在 $08 和 
书 09 单 元 中 ， 用 POKE 8,E:POKE 9，F 设 置 。 

而 在 书 10 单 元 中 ， 存 放 的 是 页 面值 ， 当 值 为 $00 时 ， 在 
高 分 辨 第 一 页 图 形 面 内 搬移 ， 当 值 为 $20 时 ， 则 从 高 分 辩 第 
二 页 图 形 ， 剪 贴 到 第 一 页 。 

$E 6 单元 中 存放 的 值 ， 至 关 重 要 ， 第 一 页 图 形 放 $ 20， 
第 二 页 图 形 放 $ 40。 

若 要 改 放 剪 贴图 形 的 位 置 ， 可 改动 A、B 、C、D、\ 上 、 
F 值 ， 其 坐标 对 应 屏幕 位 置 如 下 : 

($0，$0):， 对 应 屏幕 左上 角 

($0，,$C 0)， 对 应 屏幕 左下 角 

($27，$0):， 对 应 屏幕 右上 角 

($27，$C0): 对 应 屏幕 右 下 角 

($13 ，$60):， 对 应 屏幕 中 心 位 置 

改变 A 一 上 坐标 值 ， 不 难 在 一 幅 屏 幕 上 合成 8 幅 以 及 更 
多 幅 图 形 来 。 

机 器 语言 和 序 下 XJJl 清 单 ， 


Bo000- A0 00 98 48. 20 11 F4 6 日 
8008- A8 5 26 99 00 BE 65 27 
Bolo- 9599 00 BF C8 60 CO Do EA 
8018- A4 07 B9 00 BE 85 0 B9 
So020- oo BF 18 65 10 85 OB A4 
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8028-- 
各 口 亿 一 
吕 避 3 如 一 
昌 040- 
8048- 
全 各 与 口 - 


8058 一 


日 OO 一 
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ol1 
8F 
oo0 
OF 


作 
心 


o8B 
CO 


DO9 


外 
如 和 
DOE 


OF 


oOE- 


口 ! 


全 也 


站 E 


OA 


QF 
OFE 
SO 
DO7 


第 六 章 移动 显示 


在 使 用 高 分 辨 第 一 页 及 第 二 页 绘制 图 形 时 ， 用 一 般 的 显 
示 方 法 比较 单调 和 死板 。 奶 果 我 们 编制 一 些 机 器 语言 子 程序 ， 
在 需要 时 调用 它们 ， 就 会 使 图 象 显示 多 样 化 ， 其 效果 也 就 好 
得 多 。 事 实 上 ， 许 多 游戏 软件 常 采用 多 样 化 的 显示 技巧 ， 其 
中 用 得 最 多 的 就 是 让 图 象 在 移动 过 程 中 显示 ， 给 人 以 明快 深 
刻 的 印象 。 

本 章 主要 介绍 上 、 下 移动 ， 左 、 右 移动 显示 的 机 器 语言 
子 程序 ， 并 详细 剖析 其 原理 , 供 读者 在 此 基础 上 应 用 和 改进 。 
这 些 子 程序 也 可 以 方便 地 移植 ， 从 而 使 您 的 软件 增辉 添 色 。 


第 一 节 ”画面 结构 与 其 记忆 位 置 的 对 应 关系 


在 介绍 各 种 机 器 语言 子 程序 之 前 ， 我 们 先 谈 谈 中 华 学 习 
机 画面 结构 与 其 记忆 位 置 的 对 应 关系 。 同 APPLEI 机 一 
样 ， 其 画面 结构 比较 特殊 ， 显 示 器 地 址 分 配 如 图 2.41 所 示 .。 
由 图 2.41 可 知 ， 屏 幕 上 的 画面 结构 与 其 记忆 位 置 不 是 顺 
序 一 一 对 应 的 关系 。 但 是 我 们 可 用 下 面 的 公式 来 计算 其 对 应 
的 记忆 地 址 ; 
AD=8192 十 A 关 1024 十 B 关 128 上 +C 关 40 十 Y 
式 中 ，A =X 一 8XD 
B =D 一 8 关 C 
C =INT(LDV/8) 
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了 所 国 吕 咎 四 和 二 ~ 
eawoeoorac《 人 OUOuLSDNOYTOOS2DA OO 天 册 六 NS 


0T 


(一 是 二 下、 TI -、. .【] 


[| [1 LI 

[LILLU 

[L_ lLLLLLIL LI 

[LLLLLILLUL 

[|LLILILJI 

[LI L 

UL LILLLLLL 

LILLLLL LO 

[LILLLLLL LO 

[JILILILILLLLLL 

UL LI 
[1 

| 一 -十 二 十 二 十 二 六 六 
LILLLLLLLLLJLLLILLL LO 
LILLILLLILLLLILLILILLL LO 
LILLLILLLLLLLLLLLLLLILLL 
LIL LILLLL LI LLLLLL LILLL LO 
SS3SEESSSSRSSS2SSSRENRSNSSSSS 
台币 驴 册 天 遇 员 和 BF 
[一 一 人 一 全 一 可 一 站 一 Go oo Go GD oo 己 己 己 
三 包 ESE5S2REEBR<RN<SRz SN<BESRARSOBG 
ARNRNNANRRNRSNRNRSANRNNRRRRRSRANASRR 


每 一 方 格 : 


亡 0 。$oo 


[___  ]loz 李 oko0 


亡 ]2048 币 os8o0 


[  ] aorz$ocoo 


记 -”  ]4os6 囊 loo0 


5120 事 1400 


[614$1800 


广 - ]7les$icoo 


2.41 
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D =-[INTCX7/8) 

公式 中 某 一 显示 点 的 坐标 为 《X，Y)% 由 行 坐 标 X， 列 
坐标 Y 可 直接 计算 该 坐标 所 对 应 的 记忆 地 址 AD 。 我 们 可 用 
BAS IC 语言 编程 (也 可 用 机 器 语言 编程 ) 算 好 地 址 与 程序 
存放 在 一 起 ,然后 采用 查 表 的 方法 读 取 地 址 以 提高 运行 速度 。 
程序 GP 2601 是 用 B AS C 语言 编程 ,程序 GP 2602 是 用 机 
器 语言 编程 ， 它 们 都 可 以 将 第 一 页 每 一 行 的 首 地 址 计算 好 并 
存放 在 下 8100 〈 存 放 高 八 位 ) 和 囊 8200 (存放 低 八 位 ) 以 后 
的 各 单元 中 。 


ID0 FOR X=O0TO 19i 

20D0D= INT (X /8) 

30C= INT (D / 89) 
40B=D 一 日 # C 

s5OA=X 一 日 #+ D 

6 AD=8192+ 有 # 1024 + B # 128 + 


7DO PORKRE 33o24 + XINT (AD /25 和 ) 


8 PPOKE 32BO + X AD 一 INT (AD 7/ 
2 己 自 ) 其 号 SO 

20 NEXT 

1o0 END 


运行 程序 GP2601 后 ， 在 监控 状态 下 可 以 看 到 第 一 页 每 
一 行 的 首 地 址 存 贮 情况 。 


中 1D0- 20 24 28 2 3 
Bl0O8-- 20 24 28 2 0O 
Blte- 21 23 29 2D 
Bl118- 21 25 29 2D 
吓 129- 22 26 2A 2E 过 
日 128B-- 22 26 2 有 了 E 了 过 


于 放下 证 下 是 下 了 玉 表 交 


个 Tt 人 上 沁 
机 本 
O 
这; 
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日 290- 
82928- Do 
日 2AO- SO 
忆 2AB- DO 
虽 2BO- 0 
各 己 忆 号 一 DO 


去 全 


DO9 
己 怠 
DO 
己 司 


DO 


S9 
DO 
50 


Do 


so 号 


DO 1 


在 监控 状态 下 ， 健 入 机 器 语言 子 程序 GP 2602。 


其 日 OOLL 


母 口 台中 一 
号 口 口 公 一 
全 操 口 结 一 
Boa6- 
如 口 避 9 一 
SCOC-- 
重 口 OE-- 
台 吕 1 忆 一 
日 性 1 之 一 
ww14-~ 
号 0 1 一 
号 1 一 
全 局 1 和 一 
SolC- 
吕 OTt1E-~ 
Bo2l 一 
日 23 一 
: 扫 口 2 一 
0O27- 
80b29- 
号 避 2B 一 
纺 O2E ~ 
和 已 妇 1 一 
日 避 妆 扫 一 
和 03- 


A9， 
85 
85 
8D 


和 D 定 


和 9 


昌 s= 《 


A9 
85 
A9 
85 
A9 
及 马 
A2 
宫 
AO 
AS5 
91 
A5 
91 
EE 


下 上 


Lo 
90 
各 口 


F4 


和 oO 
80 


LDA 
STA 
ST 人 
ST 
与 二 及 
LED 
STA 
LTD 
STA 
L_DA 
STA 
LDA 
DY 
上 了 
JSR 
LDY 


LDA 


STA 
L.DD 
兮 了 各 


INLC 


INC 
CPY 
BCC 


RTS 


间 事 口 已 
7 车 心 白 
车 们 ) 伍 
种 如 心 1 
种 日 操 了 2 
井 后 纺 过 
惠 避 7 

# 熙 吕 1 
车 避 吕 
厅 囊 2 口 
利 E 各 
井 生 COD 
间 事 如 总 
林 事 已 心 
囊 F411 
可 种 C 品 
种 必 白 

( 囊 O 品 ) ,YY 
种 27 

( 囊 避 日 ) YY 
种 各 口 1 纺 
车 便 所 卫 全 
间 事 有 F 
车 01 
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然后 我 们 从 $8100 一 $81BEF 及 和 书 8200 一 $82BEF 中 看 到 和 
行 


运行 GP 2601 后 一 致 的 结果 。 


各 1 人 人 一 避 卫 千 2 号 2C SO 34 38 CC 
BlioB- 20 24 28 2C 30 34 .38 SC 
BO- 2 25 29 2D 3 35 9 3D 
Btlie9- 21 25 29 2D 31 35 39 3D 
昌 120 一 22 26 2 2 32 30 3A 3 
日 123- 22 26 2 2E 32 3 3 
Sl30- 2 27 2B 2F 33 37 SB 卫 
3138- .2 了 3 27 2B 23F 33 3S7 3B 也 
8t4o- 20 24 28 2C 3D 34 38 SC 
Bl48- 20 24 28 2C 30 4 38 也 
虽 15SQ- 2 25 29 2D 31 35 39 3SD 
Bl58- 21 25 29 2D 31 35 39 3D 
SBSli60-~ 22 26 28 2E…32 3060 SA SSE 
Bl168- 22 26 2 2E 32 30 3A 3E 
日 170- 2 27 28B 23F 33 37 3B 
呈 173- 23-27 2B 2F 33. 37 3B 
BlSo- 20 24 28 2C 30 34 38 瑟 
Bl1883- 2 24 28 2C 30 34 38 也 
8130- 21 235 29 2D 1 35 39 3D 
Bl98- 21 25 29 2D 31 35 39 3D 
日 1AO-- 22 26 2A 2E SS2 SO.3A 
9t1AB- 22 26 2 2E 2 号 折 < SSE 
昌 1IBO- 23 27 2B 2F SS 7 3B SF 
BliBBS- 23 27 2B 2F 33 37 3B 也 
8200- 00 00 00 00 00 00 00 600 
6208- 80.80 80 80 8D 80 80 8 
8210- 00 00 00 9000 00 0 OO OO 
S218- 80 80 8 80 80 8O 80 80 
220- 00 00 00 bo On OO OO OOw 
6B228- 8 80 Bo Bo BO Bo So So 
各 2OC 一 DO OOD nmDD DOD DO DO OO OO 
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2s 一 


是 全 4 0 


谷 亿 奸 台 -… 
入 2 司 二 一 
舍 与 人 3 
和 之 拓 寺 一 
如 盖 人 日 一 


仁 富 LA 


会 278B- 


马 守 号 辣 -- 
日 288-- 
号 2 呈 站- 
名 宁 日 -- 
号 公信 白 一 
日 2A8- 
日 人 虽 吕 ~- 


大 
务 之 站 他 一 


程序 GP 2602 的 原理 说 明 如 下 : 
$8000 一 下 8013 


$8014 一 $8017 


再 8018 一 $8020 


$8021 一 $802A 


初始 化 。 设 置地 址 存放 单位 ， 即 将 
吊 8200 存 放 于 书 07 和 $ 06 单 元 中 ， 


将 $8100 存 放 于 书 09 和 $08 单 元 中 。 


设置 计数 单元 书 8019 和 $8022， 用 
于 判断 X 行 是 否 算 完 。 

将 书 20 放 入 下 已 6 单元 ,指定 计算 第 
一 页 图 形 显 示 地 址 。 

调用 B AS IC 解释 程序 中 的 子 程序 
计算 各 行 首 地 址 ， 算 好 后 放 入 币 26 
( 低 八 位 ) 币 27( 高 八 位 ) 单 元 中 。 
将 算 好 的 各 行 首 地 址 放 入 下 8200 和 
$8100 以 后 的 各 单元 中 。 
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$802B 一 书 8034 “计数 器 加 1 ,判断 各 行 是 否 全 部 算 
光 ， 未 算 完 转 贡 8018 继 续 人 
中 8035 算 完 结束 返回 。 
第 二 节 ”由 下 向 上 移动 显示 


要 和 生 面 面 由 下 门 上 移动 显示 ， 可 以 采用 逐 行 向 上 搬 和 
的 方法 ， 原 理 见 图 2. 42。: 图 中 每 一 方块 的 含义 如 图 2.41 所 


示 。 
， 
第 一 页 
向 2000 国 市 2000 
李 3FD0 Di 
4a) 未 搬 前 Lb ) 机 移 . 一 行 由 
它 中 2000 - 事 2000 
C 书 3FDn0 -” “$3FD0 L 
(c ) 逐 行 上 移 . (d ) 移 完 痊 出 
贺 :2.42 
程序 G P 忆 2603 清 单 。 
80oq- ”ARA2 00 LDX 。 # 囊 00 
8002 一 BD 50 81 LDA 贡 日 1OD，X 
B005- BS 白 7 STA 革 操 7 
8007-- BD Oo 82 LDA 中 8B20O0 X 
800A- 85. 0O6 STA 中 OO 
80cC-  E8 INX 
80DD- BD 0O0 31 LDA 串 日 1 DO , X 
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11 F4 


忆 白 
CC 全 人 2 
27 
OO Bl 


( 叫 DB) ,Y 
《车 所 如) ,YY 
， ， 
车 强 向 全 与 

间 囊 但 疡 

各 日 口 吕 之 
韩 囊 局 侣 


( 串 D6) ,Y 


间 审 < 日 “ 
审 日 口 三 之 


林 种 二 6 
囊 E 白 
音 囊 忆 局 


车 F411 


下 26 .， 、 
中 88200 , X 
和 之 7 

车 日 1 避 口 ， 关 
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304 


8052- :ESB INX 

8053- EO CO CRX # 囊 CD 

8055- ”DO ERA BNE 下 8041 
8057- ”AD 54 CO LDA ”让 CO54 
805A- ”RD 50 CO LDA-” 囊 COSO 
805D- ”0 57 CO LDOA 书 CO57 
8060-~ ”AD 52 CO LDA， 囊 COS2 
80643- AD 10 CO LDA- CDO1D 
8066- :20 00 80 JSR 。 书 8B000 
8069- AD 00 CO DA 车 COODO 
8O06C- 10 FS5 BPL 划 BO63 
BO6E- 60 RTS 


程序 GP 2603 在 零 页 设置 了 4 个 单元 ， 各 单元 作用 分 别 
$07，$ 06 一 一 存放 移动 后 目的 行 地 址 ， $07 存 放 高 八 
位 ， 员 06 存放 低 八 位 。 
$09， $08 一 存放 被 移动 行 地 址 ， 下 09 存放 高 八 位 ， 

$08 存 放 低 八 位 。- 
程序 原理 说 明 如 下 ; 
$8000 一 $800B  。 查 表 ,取得 移动 后 目的 行 地 址 ,高 作 
位 放 入 $$07 单 元 , 低 八 位 放 入 :$ 06 
单元 ， 开 始 即 为 首 地 址 和 书 2000。 
$800C 一 $8016 ” 查 表 指针 加 1 后 ,取得 被 移动 行 地 
址 ,高 八 位 放 入 囊 09 单 元 ， 低 八 位 
放 入 $08 单 元 ,开始 即 为 由 2400。 
$8017 一 $8022 ”判断 是 否 为 首 行 ， 如 是 则 将 首 行 逐 
列 压 入 堆栈 ， 如 图 2.42(b), 如 不 是 
则 跳 过 此 段 转 $8023 往 下 执行 。 开 


$8023 一 $802B 


$802C 一 $802F 


$8030 一 下 8039 


始 即 为 $2000 一 $2027 单 元 的 内 容 
压 入 栈 内 。 

将 一 行 逐 列 移动 ,如 图 2.42(c)， 开 
始 即 为 $2400 一 囊 2427 单 元 的 内 
容 搬移 至 书 2000 一 书 2027 单 元 中 。 
判断 整 幅 画面 是 否 全 部 上 移 了 一 
行 ， 未 移 完 则 转 至 电 8002 继续 往 
下 移 ， 如 图 2.42(c )。 

整 幅 画 面 移 完 后 ， 则 入 叭 栈 中 将 首 
行内 容 逐 列 只 出 到 最 后 一 和 ， 如 图 
2.42(d)。， + 


$803A 结束 返回 。 
至 此 ， 连 续 不 断 地 运行 GP 2603 ， 画 面 即 形成 不 断 由 下 . 
癌 上 移动 显示 。 


GP2603 中 中 803B 一 中 806E 一 段子 程序 是 为 演示 GP 
2603 程 序 而 编制 的 ,其 中 下 803B 一 $8056 与 GP 2602 程 序 基 
本 相同 ,是 用 来 计算 各 行 记忆 地 址 的 ; 下 8057 一 币 806 已 是 在 
第 一 页 用 软 开 关 设置 画面 显示 ， 并 控制 程序 的 中 断 运行 。 


演示 GP 2603 程 序 ， 可 用 GP 2604 程 序 。 ii 
动 时 ， 按 任意 键 中 断 返回 。 图 2.43 为 中 断后 的 画 

程序 GP 2604 清 单 - 

3 

10 D 蔬 = CHR 事 (4) 

20 “PRINT D$"BLOAD PIC--1 人 驯 2000" 

30 PRINT D 蔬 7"BLOAD GPF26D3S9 

40 “CALL SS2827 

50 FOR I= 1 TO 1000: NEXT II 

co TEXT :END 
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-图 2.43 


GP2603 子 程序 介绍 的 是 在 第 一 页 范围 内 移动 ， 我 们 还 
可 以 将 图 形 存 放 在 第 二 页 ， 逐 行 撒 至 第 一 页 实现 向 上 移动 显 
未 。GP2605 子 程序 即 有 此 功能 。 


Sooo- 9 DO LDA 间 目 00 
.Soo02- 85 1F STA.、 机 1F - 
8004- ” A2 00 LDX 碍 有 OO 
8006-  BD oo 8i DA 再 B100，X 
Bao53- ”95 D7 STA ”07 
Soc08~ BRBD Oo 2 外 人， 生日 200，X 
SOGE- 95.06 STA 记 O6 

昌 O1O- 王 唱 TINX 

Solli-  BD oo 8i LDA 下 8B100，X 
8014- 85 069  - ST 有 …… 囊 09 
80l16-  BD 00 .83 ,二 D 放 于 9200，X 
SD19- 85 0e 当 TA SOB 
aolB- ”2045 80 JSR- ”让 8045 
BO1E- ED-BF: ” -CCPX 井 BF 
8B020- DO E4 -BINE- 让 9006 
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号 局 2 2 一 
BoO24 一 
号 避 之 各 一 
台 口 忆 强 一 


86oD2A 一 . 


合 妃 己 人 CC 一 
SO2F 一 
是 怠 3 忆 一 
BO3S2-- 
如 OO 地 4 一 
8037 一 
号 姓 3 呈 一 
台 心 3C 一 
日 03E 一 
各 恕 4 一 
母 局 寻 忆 一 
日 品 44 一 
刀口 4 与 一 
SOD47 一 
续 避 4 呈 一 
台 心 4 书 一 
各 已 十 蕊 一 
总 己 信 记 一 
癌 扣 与 已 一 
8BOSL 一 
生 口 三 卫 一 
如 局 与 与 一 
售 避 富 7 
台 口 与 呈 一 
台 口 号 9 -~- 
避 写 仁 一 
已 己 了 一 
BO5S5E 一 
BO6GO 一 
呈 00 一 
日 DSS 一 
BOC6G8- 


-00 81 


00 82 


“45 Bo 


11 FE4 


忆 和 

OO 日 2 
27 
CO 全 1 


天 于 CD 
车 如 口误 4 


# 贡 OO 
(和 DB) ,Y 
( 囊 D6) ,Y 


井 于 之 
熙 8Q47 


井 囊 20 
串 E 扣 
井 各 9) 


叫 F411 


贡 26 

襄 全 200 ,X 
于 27 

事 BtOO ，X 
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号 D693- 蕊 日 C( CPX 厘 囊 人 癌 

B3D6B- DO EN BNE ， 革 旨 3S 

BoOaD 一 AD 54 CO0 LDA 下 COS4 
8070- 台 了 与 忆 -CC 纪 j TD 名 事 记 口号 所 
8073- 一 AD 瑟 7 切 操 LDB ”机 CDOS7 
BOZ 加 一 -及 D 与 2C 吕 LDA 囊 计 口 S2 
BoO79- AD 10 CD LA 车 CD1TD 
BD7C- 29 00.80 SR 种 呈 吕 D 品 
名 7ZF 一 AD .Oo Co LT 六 事 六 安安 站 
3082- 10 FS5 已 有 L 来 号 必 了 宁 
8084- 40 RTS 


员 


GP 2605 子 程序 原理 见 图 2.44、 


叫 2000 


中 3FD0 


第 二 页 
$400 一 国 


45FDo 一 5FD0 二 一 
Ca ) 未 最 秘 前 (b ) 搬移 一 行 - 


-第 二 页 
400 国 国 
_$5FD0 _ 


(d ) 整 幅 移 完 
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GP 2605 子 程序 在 零 页 设置 了 5 个 单元 ， 除 $06 一 .下 09 
4 个 单元 的 作用 同 GP 2603 子 程序 外 , 还 设置 了 $1F 单元 作 
计数 器 用 ， 以 判断 整 幅 图 形 移动 完了 没有 。 

程序 GP 2605 原 理 说 明 如 下 ， 


$8000 一 $8003. 
$8004 一 $801A 
$801B 一 $801D 
$801E 一 $8021 
中 8022 一 $8029 
$802A 一 中 8038 


$8039 一 $803B 


$803C 一 $8043 


$8044 
$8045 一 $8050 


中 8051 一 中 8084 


设置 计数 器 初始 值 0 。 

同 GP 2603 子 程序 $8000 一 $$8016。 
调用 逐 列 移动 一 行 子 程序 。 
判断 第 一 页 是 否 全 部 上 移 了 一 行 ， 
未 移 完 则 转 至 $8006 继 续 移 。 


移 完 ,将 第 一 页 未 行 地 址 作为 目的 


行 地 址 。 


查 表 , 将 高 八 位 加 下 20 即 取 第 二 页 


被 移行 地 址 。 

调用 逐 列 移动 一 行 子 程序 ， 如 图 
2.44(b)。 
计数 器 加 1 ,判断 是 否 全 部 移 完 ， 
未 完 转 $8004 继 续 移 第 二 行 ,如 图 
2.44(c)， 循 环 直 至 全 部 移 完 如 图 
2.44(d)。 

移 完 返 回 。 

逐 列 移动 一 行 子 程序 ,即将 被 移行 
各 列 的 内 容 逐 列 移 至 目的 行 各 列 。 
同 GP2603 子 程序 $803B 一 $806 正 ， 
演示 用 。 


演示 GP 2605 子 程序 ， 可 用 程序 GP 2606 。 
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10. 了 机 = RHR 趾 《4) 
20，PRINT -D$8"BLOAD PIC-1，A 贞 4000" 
30 “PRINT D$;"BLOAD GF2605， 

40 CALL 32849: 

50 FOR TI = 1 TO Looo: NEXT 1I 

60 TEXT : END 


第 三 节 ”由 上 向 下 移动 显示 


掌握 了 由 下 向 上 移动 显示 的 原理 后 ， 要 实现 由 上 向 下 移 
动 显示 就 很 方便 了 ， 最 简单 的 方法 就 是 不 改动 手 程序 ， 而 将 
图 形 每 行 首 地 址 丫 倒 放置 ， 即 改动 一 下 许 算 地 址 的 程序 ， 见 
GP 2607。 

GP:2607, $8000 一 $803A 为 由 下 向 上 移动 子 程序 GP 
2603 的 子 程序 ,$803B 一 $8063 获 动 了 一 下 ， 它 计算 出 的 图 
形 每 行 首 地 址 颠倒 放置 了 ， 运 行程 序 G P 2607 清 单 。 


二 口 忆 全 一 人 LDX 井 囊 所 已 
区 RE OoD 台 1 LDAN 后台 荆 口 口 ， 关 
人 号 三 避 7 ST 囊 避 六 

人 人 生 了 一 ED 避 口 纪 2 DA 车 日 安 操 口 ， 
妆 操 已 且 一 号 局 各 STA 囊 己 白 

如 己 马 亿 一 丰台 工人 

号 DeD-~- BD Oo Bl LDA 事 B1OO，X 
号 已 志 一 SS oD3 ST 和 DO9 、 
绅 怠 12 一 ED D 唱 志 LD 台 贡 虽 20OX 
Bolis- 85 D8 STA  k$08 
全 所 二 >-- E 避 OO1 CPX 间 囊 已 

各 全 二 细 一 局 马 RNE 利 旨 已 忆 沁 

马 吕 及 一 后 人 7 LRY 间 囊 之 了 
33D1D- BT1 D 白 LDA ( 秆 D6) ，Y 
马 忆 1 六 一 二 日 所 归咎 

妇 牛 全 怠 …- 3 台 DEY 
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区 人 
急电 2 二 一 
奸臣 过 己 一 
各局 己 7 一 
续 忆 和 守 当 一 
呈 口 之 后 一 
归口 忆 一 
民意 关 民 一 
生怕 了 妆 一 
8O 〇 3S2 一 
号 口 六 革 一 
全 马子 己 一 
8036-- 
3038-- 
母 操 取 及 一 
号 忆 汪 下 一 
外 品 3 已 一 
日 局 4 局 一 


8042.- 


号 避 45- 


全 怠 了 7-- 
EO49- 
人 纺 品 和 下 一 
如 口 4E- 
全 台 号 已 一 
号 品 握 2 一 


全 口号 5 一 


1 


SCS7~ 
母 口 与 及 一 
各 避 呈 D 一 
号 ao 一 
吕 O2 一 
入 总 各 年 一 
号 口 如 7 一 
妨 台 如 及 一 
SCOeGD- 
BO7 已 - 


8 


遇 己 : 


丰 虽 1D 

# 生 27 
(机 OOB) ，Y 
(于 DG6) Y 


革 日 D25 
提 征 CO 
生日 口 口 之 


音 囊 DOD 


( 囊 D6) ，Y 


音 囊 2 日 
上 BO32 


间 审 访 O 
$8046 
井 旧 BF 


井村 20 
熙 EO 


井 囊 口 口 


丰 F411 

林 叫 REF 
事 忆 各 一- 

于 B2OO。 
囊 怪 7 

侍 Et1OOX 
砷 804A. 
上 BO4F 
音 囊 口 口 . 

车 昌 D49 
和 COSO 
串 COS7 
囊 忆 避 司 妆 
种 仁 纪 并 避 
车 但 OOO 
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日 呈 7 一 AD Oo LO 全 也 手 划 COQOO 
号 已 7 扣 一 1D 三 与 BPL  . 贡 8BO06D 
号 已 7 日 一 如 避 民 TS 


GP 2607， 可 以 看 到 ,图形 由 上 向 下 移动 显示 了 。 


被 改动 部 分 的 原理 说 明 如 下 ; 
$803B 一 书 8044 初始化， 让 其 从 $ 0 开始 计算 ， 
从 $ 书 B 下 开始 存放 。 


串 8045 一 书 8048 指定 计算 第 一 页 图 形 显 示 地 址 。 

$8049 一 $ 804D ”调用 BASIC 解 释 程序 中 的 子 程 
序 计算 各 行 首 地 址 , 算 好 后 放 入 
$ 26 和 $$ 27 单 元 中 。 

$804 匡 一 $8059， ”将 算 好 的 各 行 首 地 址 颐 倒 放置 在 

$8200 和 甩 8100 以 后 的 各 单元 中 。 
$805A 一 $8063 ” $804A 加 1 ( 算 下 一 个 地 址 ) ， 
9$ 804F 减 一 ( 倒 着 放下 一 个 地 址 )， 
判断 是 否 全 部 算 完 ,未 算 完 转 甩 8049 
继续 算 ， 算 完 秆 二 执行 演示 程序 。 

演示 G P 2607 程 序 ， 将 GP 2604 程 序 中 调 GP 2603 文 件 
改 为 调 G P 2607 文 件 即 可 。 

除了 上 述 方 法 ， 还 可 以 改动 GP 2603 子 程序 来 实现 由 上 
向 下 移动 显示 图 形 ， 见 程序 GP2608 。 

对 照 GP.2608 与 GP.2603, 可 以 看 到 $ 8001 单 元 内 容 $ 00 
改 为 $ BF ,$800C 单元 内 容 改 为 $ CA，$ 8018 单 元 内 容 
改 为 $ BE ,$802D 单 元 改 为 $ FF 。 程 序 GP 2608 将 图 形 
最 末 行 先 压 入 堆栈 ，. 然 后 一 行 一 行 向 下 搬移 ， 移 完 后 从 堆栈 
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弹出 到 图 形 首 行 ， 循 环 搬移 就 实现 了 由 上 向 下 移动 显示 图 
形 。 ，、 
同 理 ， 将 G P 2605 子 程序 改 为 G P 2609 子 程序 ， 即 可 实 
现 将 第 二 页 图 形 搬 至 第 一 页 由 上 向 下 移动 显示 。 

演示 GP 2608G P 2609 可 分 别 将 人 台电 2604 与 GP 2606 中 


调 GP 2603， GP 2605 文 件 改 为 调 GP 2608、 GP 2609 文 

件 。 
程序 s P 2608、GP2609 清 单 。 
呈 OOO-- A2 BF LDX ”可 相 BF 
8DoO2- ” BD 00 81. LDA 囊 B100,X 
BOO05- 85 07 STA 。 布 0O7 
8007- ”BD 00.82 LDA 。 记 B200:X 
So0cA- 85 06 - STA ” 书 06 
Socc- CA DEX 
SOoDD-， BD 0o0 9] LDA 记 S100，X 
80l10- 85 09 STA 。” 记 093 
8012-  BD 00 82 LDA 。 囊 8200 ,X 
8015- ”85 08 STA 。 书 08 
8017-  EO BE CPX 间 贡 BE 
8019- ”DO0 08 BNE  。 书 8023 
801B- 60 27 LEBY  。 ## 书 27 
801D- Bl 06 LDA (种 DO) ，Y 
804F 一 4S PHA 
802o0- 88 DEY 
8Db21- 10 FA BPL #$601D 
8C23- 6AO 27 LDY  。 ## 下 27 
802S 一 Bl 08 LDA 〈 囊 D 虽 ) ，Y 
8027- 931 06 STA 《于 06) ,Y 
80295- 88 DEY 
38o2A- 10 F9 BPL 。 $8025 
SO2C- ED FF CPX 井上 FF 
SO2E- DO D2 BNE 车 8002 
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日 癌 3O 一 ， 


日 心 汪 一 
生 口 汪 芭 一 
号 恕 卫 5 一 


日 总 当 抽 一 


-8038- 
803A 一 
03B-~ 
BCsSD-~ 
BO<SF 一 
60641- 
日 已 4 了 一 
如 局 4 一 
8046- 
8047-- 
8048- 
804A-- 
BO4D 一 
804F-- 
8O52 一 
全 提 王 村 一 
日 O 与 己 一 
8057 一 
BOS5A 一 
BO0SD-- 
BO6O- 
昌 063- 
BO066- 
6069-- 
8O06C- 
806E-- 
日 忆 已 局 一 
日 Oo 一 
呈 OeD4 一 
昌 oOCG- 


0O93 一 
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F4 


.83 


昌 1 


BoOoOB- 
SOOE 一 


8C1Q- 


8o0l1l 一 
8O14 一 


利 马 荆 各 到 


Bol9-~ 
号 口 1 有 一 
如 已 并 作 人 
刀口 忆 忆 一 


全 总 < 盖 


入 已 习 在 公 


各 总 之 妇 一 
全 扎 之 日 ~ 
台 口 过 人 一 
马 己 之 人 一 


日 已 2F 一 
日 口子 纪 一 ， 
如 马 要 全 一 : 


驴 口 革 车 一 
8037-- 
息 局 节 幼 一 
呈 O.3C 一 
入 局 节 蕊 一 
8O04 吕 一 
日 口 4 之 一 
BO44-- 
日 O45 一 
SO47 一 

49-- 
o4B- 
864C-- 
台 习 4 夸 一 
全 后 王 所 一 
号 口号 1 一 
89 三 一 
和 65S5S-- 


王 


日 1 


分 己 


放 . 


训 B200，X 
囊 吕 名 


中 日 1O ， X 


车 09 
下 8200，X 


囊 口 旨 

布 呈 045 
提 囊 口 品 - 
中 BOO6 


厘 囊 盖 避 ， 


训 D9 
夺 8B200 ,X 


和 圳 口 日 


车 旨 局 4 与 
村 1F 
和 唱 1 记 


间 示 FF 


中 BO04 


提 吊 OO 
(种 CB) ,Y 
( 币 06) ，Y 


# 囊 2 日 
车 8047 


井 囊 民品 
种 E 和 
井 囊 口 品 


下 
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呈 O57 一 8A TX 


Bo58- ”48 PHA 
80595- 26 44 F4 JSR ” 下 F41i1l 
BOSC- ”68 PLA 
SoOsD- AAA TAX 
805E-~ ”AS5 26 LDA 。 刘 26 
8o060-~ ”5D 60 82 STA 。 $8200，X 
8043- ARA5 27 LDBbA 。 蔬 27 
8D06S5- ,3D 00 81 SFTA 。 $B100,X 
8068- ， .ES8 INX 

\` ”8B06S-  EO Co -CRX  。 # 布 CO 

- 806B- DO0 EA. BNE  $8057 


BO06D- :AD 54 CO LDBA ” 书 CO54 
8070- ”AD 50 CO LDA ”$CO050， 
80735- AD 57 CO LDA 于 CO57 
BO076- ,AD 53 CO LDA 。” 丰 CO52- 
8079-. AD to:PFo LDODA 让 COlO 
807C- 20 00 80 JSR 让 8000 
SO07F- ”AD 90 CO LBA 。 书 CO00 
8082- 10 FS BPL  。 书 8079 
Bo084- :60 RTS 


第 四 节 ， 向 左 、 向 右 移动 显示 


以 上 几 节 介绍 的 都 是 上 下 移动 显示 子 程序 ， 本 节 介 绍 左 
右 移动 显示 子 程序 。, 

GP 2610 为 向 左 移动 显示 子 程 序 ， 其 原理 见 图 2. 45。 

GP 2610 子 程序 采用 逐 列 向 左 搬移 的 方法 实现 图 象 问 左 
移动 显示 ， 其 程序 原理 说 明 如 下 : 

$8000 一 中 800D 查 表 取 各 行 首 地 址 。 

$800E 一 $8015 ”各行 0 列 压 栈 见 图 2.45 〈b)。 

$ 8016 一 $8021 再 取 各 行 首 地 址 。 
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ET 
\ 图 2.45 
$8022 一 $8025 ” 判 各 列 是 否 全 部 移 完 ， 移 完 转 
_$8036， 未 完 继续 。 
$ 8026 一 书 8030 。 逐 列 左 移 见 图 2.45 〈c)。 
和 8031 一 $ 8035 。” 列 + 1 ， 兼 做 计数 用 ， 转 $ 8016 循 
坏 。 
$8036 一 $803D 。” 当 $ 人 ， 从 堆栈 弹出 至 各 
行 $27， 见 图 2. 45 (四 。 
$ 803 世 结 训 返回 。 
$803F 一 $8072，， 喧 示 用 。 
重复 调用 本 程序 ， 山 象 显示 即 不 断 向 左 移动 。 运 行 中 的 
一 个 罩 面 见 图 2.46。 
要 使 图 象 岗 右 移动 显 未 ， 财 只 要 先 将 各 生 $ 27 列 内 容 压 
栈 ， 然 后 逐 列 泊 移 ， 移 完 再 从 堆栈 程序 GP 2610 清 单 。 


8B000- Ab ao LDY 埋 囊 OO 
8B002-~ 从 BF ， -LDX 音 革 RBF 
母 避 口 二 一 BD OO 81 LDA  ” 囊 晶 16G，X 
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- 虽 GBy7 一 和 所 避 7 STA. 车 号 7 


Boce9-  BD Do 2 LDA 囊 8B200D,X 
BOGogE=~ -85 De6 STA 车 
SOGE- Bl oa LDA 种 D6) ,YY 
Bclo- :48 FHA 
Sotli- CA DEX 
8012- ER PCF CPX 并 种 F 
914-- DO EREE BNE 囊 生 口 怠 直 
日 口 1 各 - A2 oo LDX 林 种 避 Ci 
8018- -BD Oo 81l LNA 书 B1COiX 
SciliB- Soc7 STA 车 D7 
BO1D-  BD.Do 驴 2 LDA 车 呈 20D ，X 
3020- ”85 CQ6 全 T 各 马力 
寻 己 倍 一 已 癌 全 了 记忆 YY 井 利安 7 
S024- FEO Te BE 囊 8O3< 
Bo24- [8 TNY 

BC27-- Bl OOG LDPE ( 囊 DO)  Y 
8Q2a9- 生 如 DEY 
如 扎 2 人 一 9391 OO STA 《种 口 如 ) YY 
802C- ES INX 
802D 一 FEO CO CPFX. 井 串 CO 
802F- DO E7 RNE 种 台 已 1 
8031- 6C8 INY 

~ Boss2- CCG 28 CPFY 间 囊 当 合 
80634- DO ED RNE 囊 3016 
SO3S6- 68 Pi 全 

So037- 3931 DO6 STA (车 品 和 J YY 
8039- ES INX 

.BOSA- ” EO CO CFPX 间 囊 口 
BosSC 一 “90 DG BEC 囊 8SO1S 
.BO3SE- 60 RTS 站 
BOSF~- 69 20 LDA 间 贡 29. 
BOD41- 85.E6 STA 车 EC 
8643-  A2 Oo LDX  。 间 蔬 OO 
8045S5- 引 A TXA 
8046- 48 .FHA 
8047- 20 11-F4 JSR 车 F411 
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894A 一 - 
8G4B-: 
日 心 4- 


8CG4E 一 
妨 已 己 圭 一 
8OS53S-- 
全 避 呈 和- 
唱 O 与 7 
得 心 号 9 一 
日 口 与 也 一 


各 局 与 E 一 
虽 避 6 并 一 


息 己 如 4 一 
分 心 右 了 7 一 
号 马 轨 全 一 
8o6D 一 
各 品 7 忆 一 
虽 己 72 一 


候 口 
到 仁 心 


人 品 


蕊 已 


台 口 
作 心 


_PLA 


2 人 
二 -DA 


L 了 3 


ST 人 有: 


INX 


CPX ， 


LIG 
DA 
七 D 皇 


号 


LDA- 


LDA 


c 吉 SR 
LDA 
BF 


RTS 


布 2 
中 8B20D ，X 
事 27 
本 810 X 


井 串 CD - 
事 BD45 
车 COS4 
串 COSO 
.C057 


事 COS5 


事 EO10 


机 BOGO 
车 COOo 
种 BODG7 
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弹出 至 各 行 0 列 ， 循 环 调用 便 实 现 图 象 不 断 向 右 移动 显示 。 
改动 后 见 程序 GP 2611， 其 程序 原理 就 不 下 详细 分 析 了 。 


程序 GP 2611 清 单 。 


Soco- ”6AO 27 LDY  。 # 韦 27 
co2.- 62 BF LDX  。 间 夺 BF 
8Do4- BD OO Bl LS 划 B100，X 
8007- 95 07 STA 于 D7 
8009-: .BRBD 00 82 LDA 机 9300，X - 
800C- 85 06 GTA 。 囊 006 、 
800E- Bl 0O4. LDA  ( 书 D6) ,Y 
8o019- 48 PHA 
801il- BE DEX- 
8012-  EO FF CPX  。 # 机 FF 
8014- DO EE BNE ， 贞 8D004 
-Bol6- ”AhA2 00- LDX  。 # 委 OO 
8018-  BD 00 Si LDA 机 810G，X 
Sol1B- 85 07 5TA 让 D7 
8S01D- ” BD 00 82 LOA 丰 9200，X 
83062060- 85 06 STA 囊 D6 
BoD22- Co oo CPFY 、 间 古 OOD 
BO024- FOOD BEQ ”本 BO36 
8026- 888 PEY 
8D27- ”Bl Da LDA (GO6)Y 
BoO25-- CS TNY 
B026- 91 06 STA (再 DO) ,Y 
3o02C- ES TNX 

`、 802D- ” EO CO EPFX # 各 CO 
对 如 人 2F 疡 -- DOD E7 ENE 囊 号 品 工 总 
So3sl- 88 DEY 
Bnze2- Co FF CEY 间 机 FF 
呈 O34-，，， DO RNE 上 BD16 
D30 让 ! 有 
SB037- 1 站 STA  【《 训 DG)Y 


320 


母 吕 汪 时 一 
生 马 忆 且 … 
二 已 及 全 一 
各 忆 卫 民 一 
母 忆 .3 丰 一 
台 口 才 诗 一 
司 忆 4 二 一 
和 后 才 与 一 
如 口 4 和 一 
8CG47 一 
804A- 
BO 了 一 
昌 0O4C 一 
804E-- 
引 口 与 1 一 
8053- 
805S6- 
旨 O 号 7 一 
8055- 
805B- 
各 己 握 E 一 
乒 OO1 一 
各 O 如 4 一 
6067 一 
SO06A- 
806D- 
8070 一 
8072 一 


CC 


DA 


一 
凤 。 (1) 


站 
2 全 


F4 


INX 
CPXx 
BGS 
RTS 
LDA 
STA 
LDXx 
TXA 
FHA 


JSR 


FLA 
TAX 
LDA 


STA 


LDA 
STA 
INX 
CPxX 
BNE 
LDA 
LDA 
LDA 
LDA 
LDA 
JSR 
LDA 
BPL 
RTS 


丰 CD50 
中 CO57 
下 CO52 
夺 CO10 
下 8000 
下 CO000 
车 8067 
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第 七 章 移动 清 愤 


本 章 主 要 介绍 高 分 辩 图 形 在 移动 过 程 中 不 断 清 屏 的 几 个 
机 器 语言 子 程序 ， 这 和 第 六 章 介绍 的 移动 显示 程序 有 相似 之 
处 ， 共 同 点 就 是 都 能 控制 图 象 移动 (上 、 下 移动 或 左 、 右 移 
动 ) ,而 不 同 的 是 一 个 在 不 断 显 示 ， 一 个 在 显示 时 程 中 逐渐 清 
屏 。 

为 了 学 习 和 应 用 ， 本 章 中 还 就 高 分 辨 图 形 的 其 它 方 式 清 
屏 技巧 ， 作 了 详细 的 介绍 这 些 技巧 神态 各 异 , 既 丰 富 多 采 ， 
又 生动 活泼 。 这 样 ， 可 以 使 非常 单调 刻板 的 显示 方式 变 得 侥 
有 情趣 ， 直 接 移植 本 章 中 的 任何 一 个 清 屏 技巧 ， 到 您 编制 的 
图 形 软件 中 ，: 将 会 为 您 的 软件 增加 光 采 。 


第 一 节 “向 上 、 向 下 移动 清 屏 


程序 GP2701 为 向 上 移动 清 屏 子 程序 ， 程 序 GP 2702 为 
向 下 移动 清 屏 子 程序 ， 程 序 GP 2703 为 另外 一 种 编程 的 向 下 
移动 清 屏 子 程序 。 细 心 的 读者 如 果 仔 细 阅 读 一 下 GP2701 和 
GP2702 就 可 以 发 现 ， 清 屏 和 显示 程序 十 分 相似 ， 所 不 同 的 
就 在 于 清 屏 是 要 消除 图 像 ， 因 而 在 图 象 不 断 向 上 、 向 下 移动 
时 ， 需 要 在 最 未 行 全 部 置 0 ， 这 样 就 达到 了 清 屏 的 目的 。 因 
此 ， 这 里 不 再 详细 分 析 GP2701 和 GP2702 子 程序 ， 请 读者 
对 照 GP2603 和 GP2608 可 以 了 解 程序 编制 的 原理 。 

GP2703 采 用 了 另 一 种 编程 方法 ， 实 现 由 上 向 下 移动 清 
22 


屏 ， 现 在 ， 分 析 一 下 它 的 原理 : 
$8000 一 $8026 计算 图 象 各 行 首 地 址 。 
其 中 : 
$8000 一 $8003 “计数 单元 $1F 置 0， 从 0 开始 计算 
本 地 址 。 
$8004 一 $8009 根据 图 象 存储 地 址 的 规律 计算 地 址 。 


程序 GP2701 清 单 。 

8BGOo- ”A2 BF - LDX 韩 二 BF 
8002-- BD 0 81 LDA 和 囊 B1CD，X 
8o0o5-， 85 07 号 下 后 事 避 了 
Bo0o7-  BD 00 82 LDA 车 归 2CDy，X 
BOCA- 85 06 ST 有 事 口 记 
SOOC- CA 了 EX 

800D- ”BD oo 81i LDA 划 生 19OD，X 
80160- 85 09 STA 。 囊 记 弛 
8012-  BD 00 82 LRA， 事 呈 2DD 
8015- :B5 08 STA 车 D8 
Bo0l7- -ADO 27: LDY 间 于 27 
8D019- ”Bl 08 LDA (于 DB) ,Y 
SolB- 931 06 STA 《 囊 台 后 YY 
所 olD- 98 DREY: 

BoltE- 10 F9 EBPL- 下 BO19 
8029- “EO FF CFX 届 FF 
8022- ho DE BNE 贡 SOD2 
8D24- 69 DO0 | 有 台 ，。。 音 囊 品 操 

纺 马 之 各 一 和 OO LDY 井 索 已 局 
BO28- ”91 D6 STA 《可 站 如) YY 


左 移 2 次， 与 并 $1C 相 与 ， 取 $$4、 
囊 8、 $ C、 $10 存 入 $07。 

再 取 叫 1F 内 容 ; 右 移 4 次。 与 
并 $03 相 与 ， 取 $ 工 $2 丢 掉 其 它 ， 
然后 加 上 存 入 吊 07 单 元 的 内 容 ， 再 


$800A 一 $8017 
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8036- 88 
8037- ”48 
80358- 20 11 
803B- ”68 
803C- AR 


8058- 全 D 10 
805B- ”20 00 
805E- ”AD 60 
8061- 10 F5 
806S- ”60 

程序 GP2702 清 单 。 


8000- ”A2 BF 
8002- ”BD 00 
8005- 95 07 
-007- “”BD 00 
800A- “85 06 
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F4 


81 


夫 未 怪人 
击 呈 全 和 站 


间 事 冀 
种 世 妇 
间 事 口 吕 


车 广 411 


上 2 


事 全 全 癌 辣 ，X 


种 忆 了 


种 虽 1 忆 各， 


井 征 [ 沁 
本 伍 口 汪 右 


各 CDS4 


事 忆 器 写 忆 
种 伍 口 与 7 


事 吕 二 之 


事 CDdO 
车 如 中 te 
上 COGO 


车 日 口 邱 唱 


提 囊 且 户 


车 BT1eOOiX 


串 避 7 


革 B200，X 


囊 口 如 


F4 


日 2 


81 


Co 


忆 口 
CO 


囊 D9 


囊 号 20 X 


种 口 旨 
间 惠 二 7 


( 事 OB) ,Y 
( 事 O6) ，Y 


和 BO1T9 
间 囊 F 三 
车 日 DO 人 
提 囊 局 性 
厅 囊 书 C 


史 ( 囊 D6) ，Y 


井 囊 之 旨 
训 唱 局 亿 号 


间 种 公 品 
生 巨 扣 
种 DO 


车 F 11 


训 乙 各 


车 B260 ,X 


囊 7 


村 B100，X 


井 种 三 所 

种 日 口 3 白 
种 亡 口 己 44 
囊 记 局 己 品 
种 记忆 己 7 


训 日 1DO，X 


\ 
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8055- AD 52 
8058- AD 10 
怠 避 与 了 一 2O DO 
OSE-- AD OO 
8061- “10 FS 
806S- 60 
程序 GP2703 清 单 。 
BOGO- 09 609 
8aco2- 85 1F 
SOoO4- 口 有 
OO 一 OA 
Bo06- 29 1C 
6008 一 8S5 07- 
800A- ”AS 1F 
BOoC- CA 
800D- .6A 
SOOE- “6 
SODF- 0A 
BO010- 29 03 
Bo0l2- 605 07 
Bol4 一 09 20 
Bo016- 85 07 
Bcle8- “AS 1F 
旨 OA 一 后 和 
8o1lB-- 过 9 王 忆 
01D-~ 85S OO 
BO1F~ 折合 

妨 O2O 一 G 训 

旨 O 关 1 一 29 18 
全 局 之 了 一 OS OO 
各 口 之 与 一 旨 S OO 
Bo27- 69 0o0 
各 口 之 9 一 后 品 2 
日 O2RB-~- 号 弓 


ORA 


PEY 


. 事 信 局 号 二 


事 CO1O 
革 如 口 局 品 
车 COGO 
咎 唱 口 扎 强 


厅 囊 口 O 


囊 填 


# 囊 1C 
上 07 


事 1F 


提 蔬 O3S- 


-人 吾 97 
着 和 20 
事 07 


事 1F 


# 币 EO 
事 06 


# 事 芽 卓 


事 口 如 


囊 DO 
间 审 已 吕 
厅 各 过 日 


BCG2C-~- 931 D6 


802E- Be-FB 


8030-- 全 弓 “ 瑟 FF 
晤 白 瑟 盖 2 合 吕 
号 3 一 18 

8O3SO6- A9 心 1 
全 口 了 3 日 一 占 己 二 FF 
BOGsA-- 号 瑟 二 F 
吕 OSC 一 C9 CO 
名 口 汪 E 一 DO 已 4 
日 口 40-- < 吃 


$8018 一 $801EE 


$801F 一 中 8026 


.$8027 一 $802F 
$8030 一 中 8034 
.中 8035 一 $803F 


$8040 


STA 《 囊 OOG) YY 
BNE 本 8028 


LDA 。。 # 币 SF 
下 已 JSR 。” $FCAB 

CLC 

LD 有 间 于 Di 

ADC 。 蔬 1F 

STA 。 事 1F 


.CMP 户 间 车 CC 吕 
扩 E 和 号 操作 夏 
只 了 了 驴 


加 上 并 $$20, 便 得 到 高 八 位 地 址 存 
入 $07 单 元 。 
再 取 $1F 单 元 内 容 ， 计 算 低 八 位 
取 $20、$40、.$80、 下 A0、 下 C 9 送 
入 囊 06 单 元 。 
继续 右 移 2 次 ,与 并 $18 相 与 ， 取 
$80.$10 加 上 送 入 $06 单 元 的 内 
容 便 得 到 低 八 位 地 址 送 入 $06 单 


, 妃 。 


.将 刚 计 算 的 这 一 行 逐 列 置 .0 清除 。 


延 时 ， 以 便 观 察 清 屏 的 效果 。 
计数 器 加 1， 判断 清 屏 是 否 结束 ， 
未 清 完 转 $8004 继 续 下 一 行 清 屏 。 


清 完 返 回 。 


演示 GP2703 子 程序 ， 可 用 程序 GP2704。 
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10 D 刘 = CHR 事 .(4) 
26 PRINT D 串 "BLDAD PIC-1;A$2009" 
30 PRINT D$"BLOQAD 6F2763" 


4 旨 FOKE  -- 16297,D: .PORKE  -- 16300 
, 口 
30 PPOFRE 一 16630203 PFPOKRE 一 16304 


,站 
oO FOR I = 1 TO 1000: NEXT 工 
7 CALL 32768 
BO TEXT :. HDME : END* 


二 节 ” 向 左 、 向 右 移动 清 屏 


除了 向 左 、 向 右 移动 旺 示 外 ， 有 时 还 需要 在 图 象 移动 过 
程 中 清 屏 ， 根 据 第 六 章 介 绍 的 原理 ， 很 容易 编写 向 左 、 向 右 
移动 清 屏 子 程序 .GP 2705 为 向 左 移动 清 屏 子 穆 序 ， GP 2706 
为 向 右 移动 清 屏 子 穆 序 。 因 为 清 房 是 要 把 图 象 清除 ， 因 此 就 
不 需要 象 显 示 那 样 将 被 移 图 象 压 栈 保留 ， 而 只 需要 在 被 移行 


程序 GP2705 清 单 。 ， 
Booo- “AnAo0 00 LDY  ## 各 DO 
BOo02-  .A2 00:- LDX  。 井 $QO 
004- EBD 060 .81 LDA  $8100，X 
号 已 已 7 一 呈 5 O7 SGTA 囊 口 7 
Boboo93- ” BD OO0 82 LDA 蔬 8200,X 
和 局 CC 一 人 各 5 OO6 SST 人 和 利 怠 如 

各 OOE 一 CD 27 世 PY - 间 种 全 了 7 
Bcl0- FoO 10 BEQ 贡 8O22 
Solt2- CE8 INY 

BO13- Bl O6 LDA ( 划 DO6) ,Y 
Solis- 88 DEY 
8016- ”391 66 ST (车 DG) ,Y 
BoliS- ES TNX 
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0193 一 
全 0 BR- 
和 1 一 
日 9 1E 一 
8020- 
8022- 
8024-- 
昌 026-~ 
SO027- 
各 口 293 一 
各 口 2 忆 一 
8o2C- 
8O2E-- 
8030- 
8032- 
生生 汉 汪 一 
O04-~ 
各 各 7 一 
BOs8 一 
入 性 了 吕 一 
总 已 己 一 
全 全 必 王 一 
好 已 寻 吕 一 
电 口 对 汪 一 
SO44-- 
寻 口 斗 如 一 


全 人 车 各 一 - 


利口 4 召 一 
804E-~- 
SO51- 
OS54- 
纺 品 写 7 一 
号 履 与 全 一 
8OSD- 
80OSF-~- 


万 DC 
DO 上 7 


Go 28: 


BO EO 


.69 00 
91 06 


EO C9 


29 .D9 


A9 20 


85 E 和 A 


20 11 


丰 5 卫 操 


9?D 060 


AS 27 
23D Oo 
上 名 

到 避 CD 


DO 下 后 


台 D 5S4.， 
台 呈 50 


和 D 与 7 


AD To 
人 


从 只 吕 口 


1 和 与 
如 1 


F4 


AD 与 ?3 CC 


CPX 
BNE 
INY 


CPY、 
BNE 
LBA 
STA 


INX 


多 


RTS- 
DA 


STA 
LDX 
了 X 人 


PHA 


JSR 
PLA 


.TAX 


LDA 


STA 


LDA 
SGTA 
TNX 


苇 P 尸 X 


RNE 
LDA 
LDA 
LDA 
LDA 
人 -了 伍 
可 所 人 
LDA 
BEBPL 
呈 工 弓 


井 贡 CO 
中 BO004 
间 圳 2 日 


机 002 
并 囊 吕 D 


世事 口 6) YY 


## 事 CD 
生 呈 OPD4 
井 审 之 口 
囊 E6 


， ## 定 GO 


丰 FF411 


囊 < 恕 


熙 日 200，X 


第 27 


于 B1G0，X 


间 囊 已 品 

争 虽 OOS2 

种 仁 总 瑟 44 
事 亡 如 与 纪 
各 CS7 
事 马 口 与 妆 
车 C 避 1 
囊 呈 QQDO 
事 人 对 串 避 品 
种 日 避 三 二 
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程序 GP 2706 清 单 o 


号 CODO 一 


8002- 
8004- 


虽 OO7 一 
全 局 已 9 一 
怠 OOLC 一 
生 避 己 匡 一 
BO1l 吕 一 
Bcl2-- 
BOG1S- 
引 全 与 一 
名 心 革 各 一 
如 口 了 号 一 
旨 避 19 一 


牌 避 1 ER 一 - 


如 人 1D 一 
名 纯 LE 一 
各 己 乙 忆 一 
8D22- 
如 己 之 和 4 一 
如 上 2 很 一 
日 2 7 一 
自己 只 乡 一 
全 疙 2 世 一 
各 已 妆 人 一 


昌 C2E 一 


和 二 必 一 
各 总 六 一 
具 口 汉 芭 一 
刀口 汪 引 一 
驴 己 本 7 一 
如 (本 和 日 一 
各 局 沁 叶 一 
各 口 忆 一 
全 避 3 已 一 
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全 口 


R2 


BD 


BD 


81 


F4 


上 BO22 
《 训 CO) YY 
《 囊 D6) ，Y 


# 事 CO 
上 8004 


韩 机 六 请 
夺 BOO2 
间 囊 DO 
( 事 D6) ，Y 


# 蕴 CO 
丰 B004 


捍 韦 2 


囊 已 扣 
埋 囊 口 品 


-村 F411 


串 2O 
砷 日 2OD，X 
囊 二 7 


了 昌 : 


co 


人 品 


Co 
- 夺 马 
已 口 
纪 
CO 


号 局 二 已 一 只 局所 
BO43 一 已 日 

8044- ED CGO 
由 避 4 折 一 DO 局 有 
8C4 强 一 AD 与 人 
BO4R- AD SO 
8e4E-~-: AD 瑟 7 
SC5t- AD 5S2 
呈 05S4 一 AD 1 
和 CS7-- 20 0 
8O5SA-- AD OO 
BOSD- 1 .FS 
0SF -~ 40 

程序 GP2707 清 单 。 
8000-- AD OO 
BO002-- A2 BF 
8004-- A9 00 
8006-- SS 1F 
8008-- 人 SS 1F 
800A 一 OA 

BO0OB- OA- 

Bo0ocC- 29 1C 
日 OOE- 8S OO7 
BO010-- AS 1F 
人 O12-- 和 全 

8013-- 各 人 

8014 一 白人 

8p15- 白石 

BOl6- 29 0O3 
8018-- Oo5 DO7 
BO1lLA-- 09 20 
BoO1C- 85 OO7 
BO1lE-~ AS 1F 
8020-- 06A 

802ti- 29 EO 


串 B100，X 


# 种 CO 
和 日 上 了 2 
千 COS4 


品 COSO 


种 LOS7 


- 梨 CO55 过 
囊 COlO 


上 8000 


村 CO00 
市 98054 


砷 口 品 
# 吕 BF 、 
井 囊 口 品 
各 1F 
囊 1 大 


井 向 和 
囊 忆 7 
车 +F 


井 囊 包 本 
和 局/ 
井 囊 之 避 
种 已 7 
莒 1F 


井 囊 忆 局 
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呈 台 2 一 85S5 06. STA 囊 已 操 


8025- 6A ROR 

8026- 6A ROGR 

8027- ”29 18 ANB 间 圳 1 
8029- ”05 06 ORA 。 D6 
SO2B- 85 06 STA 训 O6 
802D- AhA9 .00 LDA 间 生 OO 
BO2F- 91L1 066 STA ( 囊 口 台 ) ，Y 
80351-~ ”19 CLC 

80352- 69 01 EDA # 韦 Oil 
8034- 65 1F ADC 车 1F 
8036- 95 1F STA 囊 1F 
BO038- CA DEX 

8039- -DO0 CD BNE 熙 8008 
8O03B- ”AhA9 5F LDA 井 韦 SF 
803D- 20 A8 FC JSR 下 FCAS 
8040-  C8 INY 

8041- 58 TY 

`8042- ” C9 28 CMP # 丰 298 
8044~ ′ DO BC BNE 上 蔬 8002 
B646- 60 RTS 


末 列 不 断 置 0 除 掉 图 象 而 向 左 移动 清 屏 或 向 右 移动 清 屏 ， 
则 只 要 改变 列 数 ， 即 从 0 列 开始 ， 逐 列 递 增 移动 就 是 向 左 ， 
从 和 27 列 开始 ， 逐 列 递减 移动 就 是 向 右 。 这 两 个 程序 我 们 不 
再 详细 分 析 了 。 

将 程序 GP2703 略 为 改动 一 下 ， 使 其 变 为 从 左 向 右 移动 
清 屏 ， 见 程序 GP2707。 其 原理 请 读者 参照 GP 2703 自 行 分 
析 ， 这 里 不 再 重复 。 


第 三 节 ” 画 线 清 屏 技 巧 
高 分 辨 图 形 的 清 屏 方法 较 多 ， 这 里 再 介绍 一 个 较为 新 颖 
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有 趣 的 清 屏 程序 它 可 以 将 高 分 辨 图 形 由 上 至 下 像 演戏 中 拉 
幕 一 样 清除 ， 虽 然 说 不 上 耳目 一 新 ， 但 可 以 使 您 的 圆 形 软件 


有 所 增色 。 


例如 在 高 分 辩 第 一 页 面 存 有 一 个 名 叫 PIC 1 的 图 形 ,， 
运行 程序 GP2708 后 , 可 将 PIC1 图 形 由 上 到 下 逐渐 清 屏 ， 酷 
似 拉 寡 幕 一 样 ， 见 图 2.47。 

程序 GP2708 清 单 。 


1 各 
FRINT D 贡 ; "BLOAD PIC 1 
FDOKEE -16304，0 

FOKE “ - 16297，0 
POKE ”- 16302，0 

FOKE “ - 16300,0 

FOR TI = 1 TO 500:， NEXT 


=- CHR 相 〈4) 


GDSUB 1990 


FOR I = 1 TO 500C: NEXT : TEXT 


: HOME : END 


POKE -16300，0 
HCOLOR= . 3: FOR I = 0 TO 199 


HPLOT 05T TO 279，T5 NEXT 1 
HCOLOR=: 三: :RETURN 


原 图 形 PIC1， 见 图 2.47。 

运行 程序 GP2708， 朋 间 PIC1 的 图 形 ， 见 图 2.48。 

应 该 特别 指出 的 是 ,程序 GP2708 的 运行 方法 比较 特殊 ， 
具体 方法 如 下 : 

。 将 程序 GP2708 键 入 内 存 。 

。 改动 190 句 为 ， 190HGR。 

“ 从 100 句 开始 运行 程序 ， 即 GOTO100v。 

“ 用 上 述 步 又 运行 程序 后 ， 改 190 句 为 ， 190POKE- 
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16300, 0。 


品 


图 2.48 
。 重 头 运行 程序 GP2708 ， 可 以 看 到 清 屏 过 程 。 
又 如 ， 在 高 分 辨 第 二 页 面 存 有 一 个 名 叫 ML W 的 图 形 ， 
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运行 程序 GP 2709 后 


O 


“ 

: 本 

和 1 

色 且 ， = 。 
一 
人 ae 
8 与 四 
站 

加 必 

。 

* 所 人 史 


程序 GP 2709 清 单 。 


总 全 2 汪汪 
DDRII 了 末 EL UP L 人 -网 
2 KE 一 下 交 本 亿 十 ， 

各 可 写 人 

1 的 富 吕 
和 和 记 S 1 丰 这 晤 信和 人 
0 FOR Ts TU > 5 让 
1 GOSLUB 二 930 
二 站 工人 工 庆 工 
: _ HDM5 2 RD 

志和 和 蕊 二 它 之 本 全 
2 HCOLDR= 3 FDR 工 二 口 GQ 二 学 品 
人 PPLOT DT TD 7 人 下头 工 
3220 HGCOLOR= 口 。 RETURN 


原 图 形 ML W， 见 图 2. 49。 
UPOKE191S，,1 


ul mm 本 


Re 


:| Wi 

人 生 | 人 由 ， 可 村 
耻 | | 中 2 
人 和 11 


昌 
机 


人 
， 和 ] 局 病 二 人 和 
人 


时 
让 -9 
“人 ~ 人 ~- < 本， 
om 用 


| 诅 


] 
9 OO 


， 也 可 将 ML W 图 形 ， 由 上 到 下 逐 行 清 
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人 一 


运行 程序 GP 2709， 了 瞬间 ML 双 的 图 形 ， 见 图 2.50。 


DPOKE191S ,2 


0 人 岂 和 裔 Is ” 
间 届 Ha TS 吧 RN 一 上 
厅 旺 SR 
Ye 有 全 
2 里 ， 。 本 


-二 区 
- 天 一 六 二- 、* 和 
1 喇 司机 


SA 遇 可 人 WE、 


本 7 

7 人 中 -，- - 3 
_E. 内 - - 。 - 【 国 ， - 
7 ” e .。 _ 

一 “多 可 9 ” 【 eee mad 
六 - 二 孙 安 : 
。 = -加 一 [ 

二 ae 一 “要 矿 -~ 一 -一 了 


同上 原理 ， 程 序 GP 2709 的 运行 步骤 如 下 : 

。 将 程序 GP 2709 键 入 内 存 。 

。 改动 190 句 为: 190HGR 2。 

“GOTO100 ，)。 

。 改 190 句 为， 190POKE-16299,0。 

。 重新 运行 程序 GP 2709。 * 

程序 GP 2708 和 GP 2709 设 计 思 想 和 程序 结构 是 十 分 相 
近 的 ， 唯 不 同 的 是 软 开 关 设 置 有 些 差别 。 此 外 ， 图 形 PIC1 
存 贮 在 高 分 辨 第 一 页 ; 图形 ML W 存 贮 在 高 分 辩 率 第 二 页 ， 
在 使 用 时 应 注意 这 些 差别 。 

为 简化 上 述 操作 ， 并 使 程序 更 为 简洁 ， 程 序 GP 2708 改 
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为 GP 2710。 


10 HGR : POKE - 16302:0 

15'.D 和 $ = CHR 丰 (4) 

2G PRINT D 叫 ;"BLOAD PIC 1 

25 “HCOLOR= 3: FOR I = 0 TO 1950 

3s0 HPLOT 0,T T9 279,I: NEXT 

HCOLOR= 0 ， . 

FOR I = 1 TO 500: NEXT :。， TEXT 
: HOME :END 


用 下 四 
NO 


同 理 ， 程 序 GP 2709 改 为 GP 2711 。 


10 “HGR2 

20 D 利 = CHR 熙 〈4) 

30 PRINT D 蔬 3 "BLOAD MLN， 

40 FOR I = 1 TQ 500:， NEXT 

5Q HECOLOR= 3: FOR I = 0 TO 190 

6 HELOTY DT TG 279.T: NEXT 

7 HCOLOR= o - 

BO FOR TI -= 1 TO 500: NEXT : TEXT 
: HOME : END 


程序 GP 2710 和 程序 GP 2711 比 较 简单 但 实用 ， 它 们 都 

是 采用 循环 的 方法 ,控制 高 分 辩 绘 图 语句 采用 画 线 的 手段 清 ， 
屏 的 。 这 就 给 我 们 一 个 启发 ， 巧 用 循环 语句 ， 例 如 改变 循环 
变量 的 初 值 、 终 值 、 步 长 ， 采 用 几 重 循环 ;或 者 变化 绘 线 语 
名 HPLOT 的 参数 和 格式 ， 将 使 高 分 辨 图 形 的 清 屏 更 加 多 样 
生动 ， 进 而 使 图 形 软件 更 加 丰富 多 采 。 为 此 ， 这 里 提供 一 个 
具有 18 种 不 同方 式 的 清 屏 程序。 其 操作 方法 ， 由 于 采用 总 控 
的 方式 而 显得 特别 简单 ,: 程序 运行 后 ， 该 图 形 PIC 1 显示 完 
成 后 ， 键 入 1 一 18 中 任 一 个 数字 并 ， 就 是 一 种 清 屏 方式 ， 
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而 要 结 保 操作 键入 0 即 可 。 
程序 共有 18 种 不 同方 式 的 清 屏 : 


人 @ 从 上 到 下 。 

四 从 下 到 上 。; 

图 从 右 到 去 : 

从 左 到 有 。 

@@ 从 中 间 向 左 、 右 两 边 。 
@, 从 两 边 向 中 间 。 

人 从 中 间 向 上 、 下 。 

图 从 上 、 下 同时 向 中 间 。 
曲 从 四 角 向 中 间 。 

轩 从 中 间 向 四 角 

@ 从 上 到 下 拉 百 叶 窗 。 

加 从 左 到 右 拉 站 叶 窗 。 

鸭 从 左上 、 右 下 同时 反方 向 。 
@@ 从 左上 、 右 下 到 中 间 ， 然 后 从 右上 、 左 下 向 中 间 。 
因 从 左 到 右 ， 从 土 到 下 双向 拉 百叶 窗 。 

国 从 左 到 右 ， 从 上 到 下 变化 图 案 。 

@@ 从 左 到 右 暗 条 纹 。 

四 从 有 到 左 暗 条 纹 。 

完整 的 程序 GP 2712 清 单 。 


19: HBGR :， PQOKE -16302，0 

20 D 币 = CHR 事 〈4) 

SO FRINT D 蔬 ;SrYBLOAD PIC df 

40 K 秆 = “400032000-3FFFM N DB23G， 

s5O FOR I =,.1 TO LEN (K 币 ) : EDKE 号 
11 + IT，-ASC ( MID 革 《KE 事 ，T 1) ) 
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100 
11OO 


120 
1 
140 
159 
160 
170 


1890 


182 


1 4 
186 


190 


导 避 局 


210 


全 
220 
230 
240 


忆 司 局) 


忆 与 避 


雪白 志 
忆 白 己 
忆 和 44 
盖 台 各 


128:， NEXT' ITI: POKE 72，0 

CALL  - 144 

INPUT "X= 2 X 

IF X = 0 THEN TEXT : HOME : END 


ON X 6G0SUB 130180200,250.280 
,3S30 50，400，450D 470 490，556D， 
630,680,770, 890,102D, 109D 
GOSUB 1t160: CALL  - 144 
POKE -~- 16304,.0，， PKE  - 19329 
7,03: POKE 一 16302 0 :POKE ,一 
16300D 0 


GOTO 70 

FOR TI = 1 TO 500: NEXT 
HCODLOR= 3: FOR I = D TO 190 
HPLOT CO,I TO 279,I: NEXT 
HCOLOR= OO 

FOR T = 1 TO SO: NEXT : TEXT 
: HOME : RETURN 

-HCOLOR= 3 


只 
FOR TI = 190 TO 0 STEP -全 
HPLOT 0,I TO 279,I: NEXT 


HCOLOR= 吕 

FOR I= 1 TO SOQI NEXT TEXT 
: HOME : RETURN 

FOR LI = 1 TO SOO: NEXT 
HCOLOR= 3 

FOR I = 279 TO D STEPR 一 | 


HPLOT I:,G TO TI,190: NEXT 
HCOLOR= 

FOR I = 1 TO 5oD NEXT :TEXT 
: HOME : RETURN 


HCOLOR= 3 
FOR TI = 140 TO 0 STEP -1! 
HCOLOR:-= 卫 


FOR T = TO 2793 
HPFLOT IO TO I,1903 NEXT 
HCOLOR= 6 
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340 


FOR II 


FOR I`= 1 TO 500: NEXT *。 TEXT 

; HOME :，RETURN 

FOR TI = 1 TO 500: NEXT 

HECOLOR= 了 3 . 

FOR IT = 14D TO OO STEP -1t 

MPEOT IO TO IT,190: HPLOT 279 
,0 TO 279 ， 一 1T,190: NEXT 


HEoLiR- O 
FOR 工 1 TO S500: NEXT TEXT 


: HOME ， RETURN 
HCOLOR= 3 了 

FOR TI = 0 7T0 140 
HPLOT TI,0O TO TI,199 


HPFLOT 279 - I,0 TO 279 - TI，19 


品 

NEXT : HECQLOR= 避 

FOR IT = 1 TO 500: NEXT : TEXT 
” PRGME .: RETLIRN 

FOR I = 1 TO 500: NEXT 

HCOLOR= 3 FOR TI = Q TO 95 

HPLOT 95 -一 T TO 279:95 一 工 : 
HPLOT 0,95 + TI TO 273， 55 + II 
: NEXT 

HCOLOR=. oO. 

= TO SoODbt NEXT : TEXT 

: HOME : RETURN 

FOR TI = 1 TOQ 59035 NEXT 

HCOLOR=. 3 FOR II = 口 TO 953 

HPLOT CI TO 279. IT: HPLOT 0,1 

39 -ITO 279,1902 ~ TI: NEXT 

HCQLOR= 

FOR J=1 TO SOC NEXT 。 TEXT 

: HOME : RETURN 

HCOLOR= 共 

FOR I = 口 TD.1460 

HPLOT TI TI TO 279 一 ITI TO 2279 
一 IT. 150 -ITOI,190o -IT TO 


TI 

NEXT : HCOLOR= 9 

FOR-I = 1 TO 500: NEXT : TEXT 
:. HOME : RETURN 


HCOLOR= 也 


FOR I = li4o .TOO STEP -1 
HPLOT I,I TO 2798 -~- IT,TIT TO 279 
一 Tioo-ITO-I,150 -~ TI TO 


9 
NEXT : HCOLOR= 六 
FOR I = 1 TO 500: NEXT 3- TEXT 


HCOLOR= 3:， FOR I = 0 TO 32 


FOR J = D TO 160 STEP 32 


IFJ = 160 THEN J] = J:- 1 . 
HFLOT 0,I + J TO 279,I.:+ 了 
NEXT J: -NEXT TI 

HCOLOR= 9 


FOR I = 1 TO 5600: NEXT .: TEXT 


: HOME : RETURN 

HCOLOR= 3:; FOR I = CO TO 35 
FOR JIJ = TO 245 STEP 5 
IFJ = 245 THEN J =J ~ 1 
HPLOT TI +,J,O TO I+J,191 
NEXT Js NEXT 1 

HCOLOR= 0 
FOR TI 二 1 TO 5S500: NEXT : TEXT 
:。 HOME 5: RETURN 

HCOLOR= 3 :FOR I = QTO 191 
HPLOT 0,TI TO 140,I 


HPLOT 141y19l1 ~ I TO 279,191 - 


I 

NEXT I: HCOLOR= 0. 

FOR I = 1 TO 500: NEXT : TEXT 
: HOME : RETURN 
HCODLOR= 3: FOR IT = 0 TO 95 
HPLOT 0,I TO 140,1 


JJ 


了 


好 划 
交 过 人 
了 


了 二 口 
人 
7 白 口 


7 二 “ 


7 蝇 心 
了 中 
号 所 中 
各 于 已 
号 疡 品 
和 母 汪 心 
各 呈 二 
唱 S 
日 6 
日 7 
日 号 心 


母 弓 心 
中 GD 
纪 1 避 
马 间 
对 马 品 
马 斗 已 
马 与 局 
对 扣 口 
7 
纺 日 品 


9 
1 DO 
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HCOLOR= 


HPFLOT -141,191 -~ TI TO 279,191 
T 

NEXT IT - 

FOR TI = 0 TQ 55 

HPLOT btl951t - I TO.141,191 - 
T 

HPLOGT 141,I TO 279,1 

NEXT TI: HRCOLOR=: 0 

FOR I = 1 TO 500: NEXT -: TEXT 
: HOME : RETURN “ 


HCDOLOR= 3: FOR II= 口 TO 17 


FOR = 0D TO 245 STEP， 了 
IF 了 = 245 THEN JJ = 可 一 
HPLOT 了 工 :+ 9-TO T 十 Jill9l 


NEXT 可 : NEX 王 工 
FOR TI 震 用 TO 1416 


FOR J = D TO 160.: SFEP 要 已 
IF J = 160 THEN JJ = 可 一 1! 
HPLOGOT 人 工 二 JJ-TO -279， I + 可 
NEXT -JJ NEX 直 人 


HCOLOR= 
FOR T = 1 TO 500: NEXT 1 TEXT 


:，HOME RETURN 
HCOLOR= 3 FOR I=0TOS5 
FOR JJ = D TOC2S5S STEF 所 号 
IF J. > 244 THEN 可 : 三 244: 
HPLOT TI + Jo :TO T 十 可 191 
HPLOT TI + Jo TO TI +Uxyrt9l 


与 )》 其 污 

IF 三 1 回忆 THEN K 三 工 59 

IF I > 32 AND 扩 三 159 THEN 
280 


HPFLOT: OO TI + K TO 279,I 二 长 


HCOLOR= 了 
NEXT JTJ: NEXT IT * 
HPFLOT 0,0 T0 :0,191 TO 279,19 


ee 


:K 二 昌 -IMT (7/ 


半 避 区) 


1020 
1 心 世 口 
104 
] 局 己 口 
1 如 避 ) 
二 全 7 
1080 


DO90 . 


1095 
11eo 
1 1 
二 宫 
1139 
1140 
1150 


116o0 


1t+7o 


1 1O 


二 


FOR I = 1 TO 5S5500: NEXT : TEXT 
: HOME :。 RETURN 

HECEHNLOR= 9 FOR I = 9 3 本 与 
FOR J = 0 TO-245.STEP 3 

IF J = 245 THEN J = JJ- 1 
HPLOT I++JOoTO IT+ Uyl9l 
NEXT J: NEXT II 

HECOLOR=… 

FOR I = 1 T9 S50034: NEXT : TEXT 
: HOME : RETURN 

HCOLOR= 吕 

FOR = 35 TO 0 STEP - 1 

FOR 5 = 245 TO 0 STEP -35 
IF J = 245 THEN'JIJ = + 1l 
HPFLOT .II+ JIOTO I + Jl9l 
NEXT J: NEXT 了 

HCDOLOR= OO | 
FOR I = 1 TO 50Dr NEXT .TEXT 一 
: -HOME : RETURN  : 
K 韦 = "2000<4000.SFfFFM N D823S6- 
FOR IT = + TO LEN (Kg)23 POKE 
S5ll + TI，.ASC ( MID 囊 (K 目 ,Il1)) 
+ 128: NEXT I: POKE 72 9 
RETURN 
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第 八 章 趣味 显示 


+ 


在 第 六 章 和 第 七 章 ， 我 们 比较 详细 地 介绍 了 一 些 最 基本 
的 图 形 移动 显示 与 图 形 移动 清 屏 子 程序 ， 搞 清楚 这 些 程序 的 
原理 ， 并 在 此 基础 上 稍 作 一 些 改动 ， 就 可 以 变化 出 各 种 形式 
的 显示 和 清 屏 程序 来 。 二 章 主要 介绍 拉 基 显示 与 清 屏 ， 合 幕 
显示 与 清 屏 ， 上 下 拼合 显示 与 清 屏 等 几 个 机 器 语言 子 程序 ， 


(d) 全 部 移 充 


图 2.51 


并 剖析 其 原理 。 同 前 面 -和 章 一 样 ， 这 里 介绍 的 程序 ， 都 可 以 
移植 ， 为 您 所 用 ， 可 以 编制 一 些 B AS IC 程序 ， 调用 您 的 图 
形 ， 但 要 注意 宙 器 语言 的 入 口 地 址 ， 必 CALL 命令 选择 正确 
的 调用 点 。 “ 


-第 一 节 _ 坎 幕 显示 与 清 屏 


鱼 台 演 出 时 ， 大 幕 拉 开 ， 演 出 开始 了 '.。GP 2801 子 程序 
也 有 这 样 的 效果 s 其 原理 见 图 2.51 将 图 像 存放 于 第 二 页 ， 然 
后 将 中 间 两 列 分 别 调 往 第 盖 -页 中 间 两 列 显示 ， 再 向 左右 列 分 
别 减 增 ， 持 续 不 断 调 往 第 一 -页 显示 ， 直 至 爸 部 显 完 。 

程序 GP 到 01 清 单 。 _。 


8000- LDA -  . 提 叫 14 
8002- ST 机 8D1E 
.9005- 十 DA “ 音 各 1 
8007- ,STA” 于 8024 
BoODA- LDX ” 砷 DO 


LDA，“ 可 B100 ,X 


800C- ， ， 上 Di 
STA_ ， 于 07 


aooF-… 浊 5 
G41 一 
8012- 
Bo14- .85. 
8016- 司 


.ADC 大 20 
STA 09 
了 上 DA- “可 8200，X 


8D19-- STA ， 伸 06 

和 01iB- .和 STA ， 囊 o8B 

印 1D- ”AAA LODY ， 着 OE 
BOLF-~ LDA， ( 囊 08) ,Y 
8BoO21- ST 和 名“( 囊 D6) ,YY 
8023-- LDY  #$19 
和 OO 2 号 一 LDA ( 串 OB) ,Y 
.BO27- ST ( 囊 06) ，Y 
8029- 工人 NX 

802A- 心 PX ## 蔬 CO 


3495 


8025C- 
802E-~ 
8030- 
8033- 
80356- 
80359- 
8035C- 
80SE- 
8040- 
8041-- 
80435- 
8045- 
8047- 
8046- 
8049-~ 
8604C- 
804D- 
804E- 
8050- 
805S- 
8055- 
8058- 
8059- 
805B- 
805D- 
6060- 
8063-~ 
8066- 
8069- 
806C- 
806F-- 
8072- 
8074- 


F4 


82 


多 


Bi 


程序 GP 2801 原 理 说 明 如 下 : 


3406 


$8000 一 $8009 初始化， 设置 列 指针 ， 指 向 屏幕 中 
央 。 

$800A 一 $801C 查 表 ， 分 别 取 一 、 二 页 行 地 址 。 

$801D 一 $8028 传送 中 间 两 列 开始 拉 幕 显示 , 见 图 
2.51(b) 。 

$ 8029 一 $802D ” 行 + 1， 判 图 象 各 行 是 否 显示 完 ， 
未 完 转 和 800C 继续 。 

$802E 一 $8032 延 时 ， 增强 拉 幕 显示 效果 。 

$8033 一 $803F 列 向 左边 递减 ， 右 边 递 增 ，, 形 成 
拉 幕 ， 然 后 判 是 否 全 部 移 完 , 见 图 
2.51(c) ,2.51(d)。 未 完 转 $ 800A 
继续 。 

中 8040 移 完结 束 返 回 。 

中 8041 一 $805C 。 同 前 面 程序 ， 计 算 各 行 首 地 址 。 

$805D 一 $8074 :演示 用 。 

演示 程序 ,GP2801， 可 用 程序 G P 2802 。 

程序 G P 2802 清 单 。 


16. D 利 = CHR 中 (4) 
20 ”PRINT .DB 串 "BLDAD PIC-1，A$4000" 
30 PRINT D 和 机"BLOAD GP28D1 

40 ”HBR ;CALL_3283S 

5 TEXT : HOME : END 


要 序 运行 中 的 一 个 画面 ， 图 2 52。 
拉 莫 显示 要 将 图 象 存 于 第 二 页 ， 而 拉 幕 清 屏 则 要 图 象 在 
第 一 页 显示 ， 然 后 从 中 间 两 列 开始 向 两 边 移动 ， 不 断 置 0 ， 
清 除 图 象 ， 达 到 拉 幕 清 屏 的 效果 ， 见 程序 GP 2803， 演 示 要 
注意 先 显 示 图 象 ， 再 执行 了 程序 。 
347 


KE191S，1 


图 2. 52 


程序 G P 2803 清 单 

旨 口 上 所 一 A9 1 4 .人 LDA 间 囊 1 4 

唱 避 吕 之 一 BD 1L17 9690 号 本 人， 车 BO17 

征 吕 号 一 和 合子 LDA- 香 囊 土地 

号 总 心 7 一 BD llD 80-. SGTA 车 旨 OTD 

得 如 各 全 = A2 OoD  : L_DX 间 革 所 吕 
BeC 一 BD Oo Bl 上 DA 本 8160，X 
妇 OGDOF 一 旨 S 避 7 ST 且 利口 7 

如 w1 工 一 了 DO 昌 2 1 .了 全 襄 人 2 X 
BOli4- 85 06 _STA 布 D6 

BO 一 AD 口 DY 非 和 所 己 
801lS-- 和 吕 O 如 井 韦 口 品 
SO1A~ 中 1 口 刀 | (村 DO) ,YY 
BotlC- ”ADO 22 LDY  。 # 囊 22 
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和 全 并 一 
妇 口 富 扣 一 

BO21- 
号 操 亿 生 一 


8025- 


8927L- 
吕 感 2 有 一 


8W2D=- 
8030= 
8035 一 


BGSS=- 


80357- 
8058- 
舍 0X 和 - 


呈 03C- 


人 DO 蕊 一 
80SF 一 
如 吕 4O 一 
8G4S- 

日 吃 征 和- 
8045- 
8047- 
SG4 人 一 
804C-- 
8C4F- 
8650- 
8052-- 

绰 0554- 
8057 一 
日 Q55A 一 
8D5SD= 
与 O6O 一 
8D6S 一 ! 
8666 一 
号 DG9 一 
色 避 和 B~ 


生 台 
局 


全 局 


下 入 


( 囊 D6) YY 


井 夺 [局 
种 命中 已 C 
井 各 及 局 


囊 FCAS 


车 号 站 1 
车 强 避 TD 
二 

生 全 总 局 全 


间 种 吧 口 


事 区 白 


间 囊 ( 吕 ) 


囊 广 4 


种 局 白 


囊 生 2DO，X 


审 忆 了 


各 四 芋 训 ，X 


提 种 DG 


种 日 心 了 巳 
第 全 中 与 车 


向 COSO 


囊 COS 7- 


囊 纪 局 品 生 


$EO10 | 


囊 呈 口 口 台 
贡 COOO 


生 B 必 66 
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第 二 节 ” 合 幕 显示 与 清 屏 


合 幕 显 示 也 是 将 图 像 存 放 于 第 二 页 , 但 与 拉 幕 显示 相反 ， 
它 是 从 两 边 向 中 间 慢 慢 显 示 ， 它 的 原理 见 图 2.53 和 程序 GP 


2804 。 
和 EDl SFDl 


第 一 页 “3a) 未 移 前 


40。. 革 27 四 
利 2000 王 4000 
$3FD0 $5EFD0|_ 


第 一 页 (hb) 移 一 次 2 
站 人 | 26 27 
$ oo 中 4000 国王 
;FDI 45EFD。 
第 一 责 tc， 移 二 次 第 二 页 


2.53 
对 照 程序 GP 2801， 可 见 ， 程 序 GP 2804 实 际 上 只 改动 
了 几 个 字 节 ， 但 显示 形式 完全 不 同 。 同 理 还 可 以 再 改动 个 别 
字 节 ， 将 变幻 出 更 多 的 显示 形式 ， 请 读者 自己 去 思考 。 
.对 合 幕 清 屏 ， 也 与 上 面 拉 幕 清 屏 相似 ， 只 要 改动 程序 
CPP 2803 中 的 几 个 字 节 ， 见 GP 2805。 演 示 CP 2804 与 GP 
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程序 GP2804 清 单 


8OOO-~ 
8002 一 
8005 一 


8o0 
8CO 
81 


82 


F4 


囊 D9 


车 日 20D ,， X 


和 DO 


于 口 日 


间 囊 间 7“ 


( 贡 0B) ,Y 
( 串 D6) ，Y 


井 种 盖 品 


(于 0B) ,Y 
(于 06) ,Y 


井 事 LO 
和 BOOC 
井 囊 AD 
宴 FCAS 
种 6O01E 
和 中 BO24 
向 8024 
囊 1 二 
种 8OOA 


# 圳 20 
于 E6 
# 各 00 


于 F411 
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8055- 90 .06.B1 。 STA  $B100，X 


程序 GP 2805 清 单 。 


BObo- 69 Go- LD 有 A 间 韦 口 品 
8002- -8BD 17 80- STA 囊 8BO17 
8005- 69 27 LDA 。 厘 记 27 
86o07- :8BD 1D 80 ST 台 囊 虽 Ci 吕 
日 OA 一 A2 OOD 二 瑟 关 非 囊 后 各 
SODC- 8BD oo 81 LD 有 素 呈 1 吕 吕 ， 
BOCF~ 85 697 STA 贡品 了 
80ll-  BD Oo0 82 LDA  。 事 日 全 站 台 ， 基 
80i4- 85 06 STA 车 口 如 
SoO16- 一 AD oOD LDY 非 末 全 下 
Sol8B- ”69 60 LDA 和 埋 事 局 
8O16- “91 06 GT 【本 总 G TY 
SO0OlC-~ AD 1 LDY  。 厘 吉 + 生 
8Q1E~ ?1 OO ST { 李 丫 白 1 YY 
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时 电台 一 . 


Bo2l 一 
802 3 一 


日 虽 己 一 


日 总 习 7 一. 


BO2A- 


802T 一 


803G 一 
8033- 
803S- 
8037-- 
8038- 


803A-. 


803C- 
日 0SE-- 
BODZSF、> 
BOd4Q-- 
旨 避 4 .3 一 


BO044-- 、 


BO0645 一 
妇 避 47 一 
804A 一 
和 0 奸 人 一 
SG4F 一 
征 忆 二 局 一 
和 与 盖 一 
怠 台 与 4 一 


8057--. 


8OSA- 


8OS5D- 
8060- 


8063- 
80646- 
8069~ 
806B- 


F4 


并 二 妆 疡 
囊 台 和 CC 
间 生 站 全 
串 FCAS 
种 人 必 1 了 
串 SBOdimR 
第 号 汪 1 D 
特惠 二 
囊 各 扯 生 个 


划 生 分 总 
熙 E 折 
厅 囊 亿 人 


审 户 生 革 


囊 妆 和 


事 生 人 站 


车 盖 7 


事 虹 辣 其 


间 示 广 哲 


生日 如 
贡 COS4 
村 CCSO 
事 COS7 
事 COS2 


万 COlO 


中 8000 
囊 CODO 
$8060 
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2805， 可 参照 演示 GP 2801 与 GP 2803 的 方法 。 图 2.54 为 合 
幕 显 示 程 序 运 行 中 的 一 个 画面 。 


2.54 


第 三 节 上 下 拼合 显示 与 清 屏 


在 图 象 上 下 移动 显示 程序 的 基础 上 稍 加 改进 ， 即 可 实现 
图 象 上 下 拼合 显示 。 将 图 象 存放 于 第 二 页 ， 然 后 将 图 象 分 两 
半分 别 调 往 第 一 页 从 上 下 向 中 间 移 动 ,. 直至 图 象 合拢 ， 就 形 
成 了 上 下 拼合 显示 。 其 原理 见 程序 GP 2806 和 见 图 2:55。 

程序 GP 2806 原 理 说 明 如 下 ;  . 

$8000 一 届 80687 初始 化 ， 将 图 象 中 间 位 置 指针 放 在 

中 1E 和 中 1F 单元。 
程序 GP 2804 清 单 。 
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第 二 页 


要 55DoL_ _ 


Sa) 末 撞 合 前 
人 
串 51 FDI 中 


-一 开始 脆 全 上 ) 


划 2000 『 


43FDpI 


四 事 2000 . 


$$3FDOL 


丰 2000 


$3FD0， 一 


6 人 


“Le ) 的 合 显示 完 


图 2-55 


香 序 GP 2808 清 单 :， 


3 800g 2 -9 SF LDA .，## 囊 SF 
8002- 85 1Ev4; STA 。 卓 3E 
昌 004- 二 和 时 白 O DA 旬 $ 甩 60 
8006 一 日 画 1F… STA  。 砷 3F 
80c8- AhA2 602 := LDX  。 间 事 台 D 
8Oo0pA- 20 5D 80 JSR  。 $805D 
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BoOE 一 


8011-- 


801s- 
征 局 1 与 一 
虽 DOD17 一 


台 1 一 


BEB- 


各局 1E- 


纯 台 过 局 一 
母 马 人 一 
名 操 过 4 一 
合 口 阅 了 一 
号 口 29-- 
租 心 妆 允 一 
号 品 忆 EE 一 
生 吕 人 一 
全 避 本 沁 了 
了 号 口 世 各 一 
80D3B-- 
生性 玉 一 
全 口 汪 蕊 一 
怠 已 4 忆 一 
BO42 一 
和 44- 
名 已 入 白 - 
母 恕 4 了 一 
号 已 4 且 一 
名 心 4C 一 
如 CO4F 一 
, 旺 吕 SS 一 
BeDS3S 一 
日 SS 一 
60O57 一 
如 SB 一 
全 口 5A 一 


续 口 己 人 一 
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8oO 


82 


日 1 


aa 


和 中 BO47 


” 音 事 介 品 


熙 SOOA- 
间 串 各 O 


事 昌 GSD- 


种 E037 


《村 06) ， ,Y 


间 委 忆 昌 
于 BO53 


BosD= :BEBBD Oo 昌 i  LDA 
So06o- 85o7 与 TA 
062- ED OoD 8B2  … 寺 BA 
和 065- 895: 06 STA 
Sbe7- .60 8RT 
6068- .SBD 00 82 ” LDA. 
BooB- 95 08. STA: 
BooD-: BD 00 .81 LDA 
8O7O- 1B CLC _ 一 
SO071- 69 .20 _ 一 DC 
-8B0735- “8509 一 STA 
BO07S5- 60 一 RTS 
8076- 9 20 LDA 
8078=- ”85 E6 STA 
鳄 7 人 一 2 DO LDX 
SO7C- 8 TX 合 
Bo2ZD- :48 1 PHA 
对 已 7E-- 20 11 严 4 JSR 
马 声 哩 二 一 日 局 
8082-， AAA: TAX 
SO083- 05 26 LDA 
80O8BS- ”9D 00 92 STA 
.BoBB- ARA5 27 LDA 
BGSA- 9D 6000 81 STA 
8cBD 一 E 各 INX 
是 总 SEE- EO CO CPX 
8SQ90- Do EA BNE 
Bo092- AD 54 CO LDA 
BD95-~- AD SO CO DA 
80238- ”AD 57 GO LDA 
BO09B- ”AD 52 C9 LDA 
SoSE- AD 10 CO LDA 
BoOAl- 20 oo 80 JSR 
SOAN4- .60 RTS 
$ 8008 一 $800C 


机 8B1CGO，X 


事 D7 


事 口 和 


各 8200，X 


囊 B200，X 


车 心 各 
井 囊 20 
车 0O9 
并 利己 扎 


训 EG 
提 串 OO 


生 F41t1 


事 忆 0 
囊 日 200 ，X 


在 27 


电 


囊 8100，X 


囊 B100，X 


音素 全 局 
于 Bb7C 
生 已 品 己 4 
囊 COSO 
事 GOS7 
囊 亡 乌 与 过 
串口 1 
生 BOGOO 


人 


取 图 象 中 间 位 置地 址 放 于 书 06， 
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$ 07 单 元 中 ， 作 为 目的 行 地 址 。 
$800D 一 $8010 。” 取 图 象 另 一 中 间 位 置 的 地 址 放 于 

$ 08 , $$ 09 单 元 中 ， 作 为 被 移行 地 

址 ,并 由 上 加 下 移 一 行 ， 见 图 2.55 


(b) 。 

$8011 一 $8014 ”判断 上 半幅 是 否 移 完 ， 未 完 转 
$800A 继续 移 。 

$8015 一 801D 。”。 移 完 ， 再 将 下 半幅 由 下 向 上 移动 ， 
见 图 2.55 (c)-。 ! 

$801E 一 $8021 “判断 下 半 己 是 否 移 完 ， 未 完 转 . 
$8017 继 续 移 。 

$8022 一 下 8026。。 移 完 } 取 第 一 页 首 行 作为 目的 行 地 
址 。 - 

$8027 一 书 802BHB 取 第 二 页 中 间 位 置地 址 作为 被 移 
行 地 址 。 


$802C- 一 $802D 。 $1E 减 1, 为 下 一 行 作 好 准备 。 

$802E 一 上 8030 。 调 移 动 一 行 子 程序 移动 一 行 , 见 图 
2.55 (d) 。 

$8031 一 $8035 了 芭 第 一 页 未 行 作 为 目的 行 地 址 。 

$8036 一 $803A 了 芭 第 二 页 另 一 中 间 位 置地 址 作为 
被 移行 地 址 。 

$803B 一 和 $803D 调 移动 一 行 子 程序 移动 一 行 ， 见 
图 2.55(d) 。 

$803E 一 $8045 ” $1F 加 1， 兼 作 计数 用 ， 判 断 是 
否 拼合 完 ,未 完 转 $8008 继 续 ， 见 
图 2.55(e) 。 
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$ 8046 
$ 8047 一 $805C 


其 中 : 
中 8047 一 中 8050 


$ 8051 一 $$805(CL 
中 805D 一 下 8067 


$ 8068 一 $ 8075 


$ 8076 一 $8091 
$8092 一 $80A4 


拼合 完 返 结 束 。 


取 目 的 行 地 址 , 并 移动 一 行 子 程 


序 。 


查 表 ， 取 地 址 放 入 律 08, $09 单 元 


-中 ， 作 为 目的 行 地 址 。 


移动 一 行 子 程序 。 

查 表 ， 取 地 址 放 入 $ 06， 种 07 单 元 
中 ， 作为 被 移行 地 址 子 程序 。 

查 表 ， 将 高 八 位 加 甩 20， 取 第 二 

好 直 作 为 自 的 行 吧 直 放 入 囊 吕 
$ 09 单 元 子 程序 。 
计算 各 行 首 地 址 。 

演示 用 。 


演示 程序 G P 2802， 只 需 改 动 一 下 即 可 。 图 2. 56 为 正在 
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拼合 显示 的 画面 。 
上 下 拼合 清 屏 ， 见 程序 GP 2807，- 其 程序 原理 说 明 如 


下 : 


囊 8000 一 $8009 


和 口中 避 一 
8002-- 
人 必 吕 5 一 
和 GD7- 
BOCA- 
BDoOC- 
各 已 4 一 


Bol1l 一 


8014 一 
各 马 17- 
号 心 寺 合 一 


日 中 D 一 ， 


, 妇 避 1 六 一 


号 操 全 一 : 
8622- 


如 姓 有 与 一 
号 局 忆 7 一 
引 CQ2 人 一 
日 殷 2C-- 
号 避 袜 一 
弗 口 了 局-- 
吕 OG 了 2 一 
入 马 .3 入 一 
号 口 汪 号 一 
母 己 了 7 一 
日 恕 39 一 
各 局 汪 仿 一 
如 如 3DD-- 


360 


， 初 始 化 ， 设 置 首 行 ， 末 行 指 儿 。 
$800A 一 $800E ”调查 表 取 地 址 ， 请 一 行 子 程序 将 


已 


首 行 清 屏 。 
人 


市 BODB 


# 吕 BF 


上 BO10 


柯 囊 各 手 - 
人 日 D22 
囊 SF 
车 呈 22 


-车 呈 D10 


车 BO1iO 
梓 宫 与 F 
$800A 


于 6200，X 


囊 DO 


O7 
## 囊 OO 
# 生 OO 


($D6) ，Y 


非 市 2 强 
守 8D2E 
非 伸 有 内 〇 
夺 FCAS 


# 种 忆 O 


8O3SF- ”85 E6 
8041- ” A2 00 
8043- -BA 
8044- 48 . 
8045- .20.11 
8048- ”68 
80495- AAA 
804A- ”AS5 26 
804C- ”5353D 00 
SO04F- ”AS5 27 
8051l- ”9 00 
8054-  E8 
80S5S5-…” EO0 CO 
8057- DO EA 
80523- -AhD 54 
8OS5C- ”AD SO 
8OSF- ”AD 57 
8062- AD S52 
8065- 20 00 
8068- 60 
$800F 一 中 8013 
$8014 一 $8020 
$8021 

$8022 一 $802B 
$802C 一 中 8036 
$8037 一 中 803 B 
$803C 

$803D 一 中 8058 
$8059 一 中 8068 


STA  。 贡 E6 
LDX 。 # 训 OO 
TXA 
PHA_ 
F4 JSR  。 李 F411 
PLA 
TAX 
LDBA  $$c6 
2 STA- 下 昌 200，,X- 
LDA 事 27 
.全 1 STA 事 81090，X 
TINX 
CPX 。 # 秆 CO 
BNE ， 世 8043 
CO， LDA 可 CO54 
Ce 上 DA ”让 CO050 
Ce LDA ” 亡 CO57 
CO LDGA 于 CO52 
日 OO: JSR 让 8000 
RTS 
调子 程序 将 末 行 清 屏 。 
首 行 加 1, 末 行 减 1, 判 是 否 清 完 , 未 
完 转 $800A 继续 。 


查 表 , 取 地 址 放 入 $06， 趾 07 单元 
中 ， 作 为 目的 行 地 址 。 

清 一 行 。- 

延 时 用 。 


子 程序 返回 。 


计算 各 行 首 地 址 。 


演示 用 。 


301 


第 丸 齐 窗 口 剪 辑 


本 章 介绍 在 图 形 管 铀 中 十 分 有 用 的 图 放 剪辑 技术 。 首 先 
讲述 “窗口 ”和 “ 视 见 权 :” 的 概念 ,然后 通过 对 折线 剪辑 的 
实例 分 析 ， 详 细 说 明 改 变 窗 口 和 视 见 区 对 图 形 的 影 顺 ， 所 有 
这 些 ， 都 是 信息 绘图 中 十 分 重要 的 ， 又 是 最 基本 的 。 在 本 章 
的 后 面 两 节 , 着重 介 绍 图 形 剪 辑 和 图 形 肪 帮 工具 软件 使 用 广 
法 ， 这 样 ， 您 可 以 对 图 形 进行 移 位。 放大、- 反 相 、 闫 倒 、 番 
身 等 各 各 处理 ， 从 而 设 主 出 形 形 式 式 、 于 要 百 态 的 图 素 。 


第 一 窗口 技术 > 


如 果 我 们 对 一 幅 图 象 中 的 革 个 特定 区 域 的 画面 发 生 兴 赴 ， 
以 便 根据 需要 把 它 放大 ， 存 细 研 究 其 细节 ， 或 者 突出 它 的 部 位 ， 
可 以 用 一 定 的 方法 ， 将 其 周围 的 画面 全 部 捧 除 。 

画面 上 某 个 特定 区 域 ; 可 站 用 人 为 的 方法 指定 ， 即 设置 
一 个 矩形 “窗口 % 保 留 窗 口内 间 夯 面 ， 而 氛 除 窗口 外 的 画面 ， 
就 明 图 形 剪 辑 。 
在 我 们 介绍 的 程序 中 ， 用 户 选 择 的 工作 窗口 ， 按 下 述 方 
法 定义 : 

W1: 最 小 横 坐 标 。 

W2:， 最 大 横 坐 标 。 

W3: 最 小 纵 坐 标 ， 

W4 最 大 纵 坐 标 。 
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显然 ， 窗 口 越 大 ， 原 图 象 留 下 来 的 多 ， 前 去 的 少 ， 在 相 
同 视 见 区 〈 见 后 面 解释 ) 情况 下 ， 局 部 图 象 变 小 。 反之 ， 窗 
口 越 小 ， 原 图 象 留 下 来 的 少 ， 剪 去 的 多 ， 在 相同 视 见 区 情况 
下 ， 局 部 图 象 得 到 了 放大 。 

当 画 面 上 定义 了 一 个 窗口 并 进行 裁剪 以 后 ， 常 需要 把 窗 
口内 的 画面 部 分 在 屏幕 上 指定 区 域内 显示 出 来， 以 便 达 到 放 
大 或 缩小 的 目的 。 屏 幕 上 用 于 显示 窗 内 画面 的 区 域 ， 叫 做 视 
见 区 。 

显然 ， 在 同样 窗口 的 情况 下 ， 视 见 区 越 大 ， 画 面 愈 大 
视 见 区 越 小 ， 画 面 愈 小 。 ， 

从 这 里 我 们 可 以 看 到 寄 口 与 视 见 区 的 差别 :窗口 用 来 指 
出 在 屏幕 上 要 看 到 的 定 些 什么 ， 而 视 见 区 则 用 来 指出 在 屏幕 
何 处 显示 其 内 容 。 视 见 区 通常 也 是 一 个 矩形 区 域 ， 也 由 人 们 
自由 地 确定 。 它 可 以 看 到 复制 的 窗口 内 容 。 

下 面 的 程序 中 ， 视 见 区 用 V1, V2, V3, V4 作 为 变量 ; 

V2:， 最 大 横 坐 标 。 

V3:， 最 小 纵 坐 标 。 

V4: 最 大 纵 坐 标 。 

在 下 面 一 节 ， 我 们 将 通过 几 个 实例 ， 介 绍 图 形 前 辑 的 方 
法 。 

3 

第 二 节 折线 剪辑 

题目 是 将 DATA 语 名 中 的 数据 画 成 折线 图 〈( 见 250 一 
260 句 )。 

程序 G P 2901 是 没有 调用 而 视 见 区 矩形 框 的 子 程序 〈 见 
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63500 一 63510 句 ) 时 ， 画 出 折线 的 程序 。 


DPOKEI191 二 ,二 


日 


图 2.57 
程序 G P 2901 清 单 。 
13D TEXT : .HOME 


140 N1 = 0: 
| 

150 HGR2-  : HCOLOR= 也 

155 READ V1,V2,VS，VY4 

157 DATA 口 -2783，0y191 
-16 GOSUB 60005 
7ONS3iIl 

180 READ X，,Y 

190 W 事 = "":。 GOSUB 62300 

200 FOR TI: 2 TO N 

210 READ X,Y 、 

220 .W$ = GOSUB 0230 

230 NEXJT TI 

240 “END. 

245 ” DATA 旦 7，3S 


nN2 = 279:W3 = 0:NW4 = 19 
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250 DATA 27,35,33，20,45,60,56,80， 
77,40,89,.58,.11l0,120,130,29，15 
D,160 

260 DATG 270:9 


运行 结果 见 图 2. 57。 

让 序 G P 2902 调 用 了 63500 开 始 的 一 段子 程序 ( 画 视 见 区 
方 框 ), 并 将 窗 日 短 小 ， 图 形 放 大 了 ， 见 图 2.58。 

程序 G P 2902 清 单 。 


130 TEXT : HOME 
140 NW1 = 0:N2 = 100:NWS = 0YW4 = 80 


15SoO HGR2 : HCOLOR= 

155 READ V1,V2:VS,V4 
了 57 DATA ，， 昌 . 279， 避 , 191 
160 605SUB 60000 

165 “GOSUR 63500 

1ZORN = 了 | 

180 READ X,Y 

1920 W 沁 = GOSUB 46230D0 

OO ”FOR. II =- 2 本 O N 

210 READ X ， YY 、 

22Q JW 争 = Do GOSUB 62300 

2 NEXT 工 

240 END- 

2455 DAT 7 号 

250 DATA 27,355,33，20，45,，60, 56, 80， 

77，40， 85 ， S58、 110， 120， 130， 29 1 5 

0 160 
2009 DATA 270,0 
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DPOKE1213， 二 


避 


-图 2.58. 
程序 G.P 2903 和 程序 G P2902 相 比 ， 窗 口 加 大 ，. 图 形 缩 
小 〈 视 见 区 不 变 ， 见 图 2.59)。 
程序 G P 2903 清 单 。 


13OD TEXT 3-HORE 

14D WL = ONW2 = TeosW3S = DDN4 = 14 
已 - 

1SD HGR2 : 并 COLOR= 把 

155 READ V1,V2:V3SV4 

1S7 DAT 3，Dyt91 

160 60SUB 6oooo 一 

145S5 GOSUB. 名 3SDH 

178N= 11 、 

18D READ X,Y 

1990 WN$ = “U"  .GOSUB 6230O0 

200 FOR ITI=2TON 

210 READ XyY 

2 划 蔬 ="D3 GOSUB O62OO 

230O NEXT 工 
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24D ENT 

4535 DATA 27; 5 

25D DATA 3237,35, 5320,45,60,56,80， 
77，45 89 ,5 日 ,1 120,。130,29， 1 5 
leo 

260 DATN 270)0 


运行 结果 见 图 2.5g。 


DPOKE191，2 


， 图 2.59 
则 序 G P2994 和 程序 GP 2903 不 同 之 处 ， 在 于 程序 GP 
2904 神 见 区 减 小 ; 因而 整个 图 形 缩小 〈 窗 口 相同 , 见 
2.60)。 本 
程序 GP2964 清 单 。 
130 TEXT ”HOME 


140 .WL = 0:W2 = 180: ws = o:W4 = 14 
0 
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159 “HGR2. : HCOLOR= 3 

155 READ V1,V2,VS,V4 

157 DATA 0,152,0,175 

160。 GD0SUB 60000 

165 “6G0SUB 643500 

i70 N = 11 

180 READ X,Y 

190.W$ = "U"。， 60SUB 62300 

200 FOR IT = 2TON 

210 READ X,Y' 

220 MW = "D": 60SUB 62300 

230 NEXT 1I | 

240 “END 。 

245 DATA 27,35 

250 DATA 27,35,33,20,45,60,56,80， 
77,40,89,58,110,120,130,29,15 
,160 

260 DATA 270,0 


知 、 


UPOKE191<， 二 


口 


、 图 2.60 
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世上 个 程序 (GP 2901，GP2902，GP2903，GP 
2904 ) 都 村 用 到 下 面 几 个 手 程 序 : 
@ 完成 用 户 坐 标 转换 到 屏幕 或 绘图 机 坐标 〈60000 一 


60010 各 ) 


6g000 Ne = (V2 一 V1) V (W2 一 1 阳 

加 人 关切 各 一 V2 # 网 1) 7/ (W2 
一 1L) A 

Goolo A9 = 《V4 一 VS) / (N4 一 NS)3B 
9 = ( 刀 3S 莘 W4 - V4 # NS) /7 (W4 
- NS) : RETURN 


四 完成 坐标 变换 并 画 线 (62300 一 62400 向 ) 


O2300- 本 = 8 Y6 2 YY REM 和 .ENT 
RY:EOR QUICK TRACE NG 着 OTTIN6 


2400 X57 到 合唱 关 X 扣 十 BB:Y5 = 191 -- 
9 4 YO + B9) 
白 2 征 10 IF 届 囊 二 -THEN “HPLOT XS， 
YS5， RETURN 
白 2420 HPLOT TO XS5， YYSE RETURN - 


G@ 完成 夯 视 风 见 区 的 拭 形 《63500 一 63510) 


63566 .X6 = Wii YE NS: Ms 和 = Us3、GOSUB 
3 6240031X6 .= WP?: W 划 = “D":。 GOSUB 
-6240C 
635510 Y6 = 上 43 GO0SUB 624003X6. =_ Mi 
:6osUB 2406: :Y6 = WS: “60SUB 
64624003 RETURN 


值得 指出 的 是 上 述 修剪 现象 ,在 信息 绘图 中 是 很 重要 的 ，. 
又 是 基本 的 。 _ 
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第 三 节 图 形 剪 辑 
对 已 有 图 形 资料 进行 剪辑 、 修 改 、 放 缩 、 合 并 处 理 ， 从 
而 产生 新 的 更 为 丰富 多 采 的 画面 ， 是 一 件 贷 有 情趣 的 事 。 利 
用 剪辑 程序 G P 2905， 可 以 节省 大 量 的 作 图 时 间 ， 并 使 新 产 
生 的 图 象 达 到 更 为 夸张 的 效果 。 
例如 ， 有 一 幅 小 人 画像 ， 经 本 程序 处 理 后 放大 了 ， 见 图 
2.61 和 图 2.62。 


7 于 相交 
7 
5 二 二 ， 
5 用: ， 
Te 四 or 
0 可 4 
。 站 


图 2.61 原 小 人 图 象 图 2.62 放大 后 的 小 人 图 象 


程序 G 05 汀 年 。 

本 HOME :9 二 276:X = DsY = 间 

1 POPFE 一 16297， 已 3 POKERE 一 103 
3 大 口上 大 E 6: 3O2 oO PORKE 
163045D 


15 PRPOKE 230， 

20 FOR IT = 六 TO 9，READ A，POKE S 
+ TI, NEXT 

3s0 DATA 130,4,0,45,245,27-54,6，0 

40 “HCOLOR= 3:; ROT= 0: SCALE= 1: PFOKE 
232,0: POKE 233,128 

SO K = PEEK ( - 16384): IF K >》12 
8 THEN 79 

60  XxDRANW 1 AT X,Y: FOR T = 1 TO 1 


让 


.5 


号 NEXT 了 

XDRAN 1 AT X,Y: 60TO 59 

POKE - 16368,0: IF-K。 > 155 

THEN 5s50 四 
+ 13X(D) = XsY(OGD) = Y: IF 

:2 THEN 119 

+ SIY =Y+ 3 ROT= 2 

十 所 长 天 203 -- (K = 202) 

+ (KK 20S5) -= 201) 


愉 愉 2 


PPOKE-” 一 1630103D = DO:X = 0O:Y 
二 口 ROT= 人 咏 

VYTAB tt TNPUT 1 ， 了 <" 3 A。 R 
INPUT "XyY="3XY: XX = 丸 


DIM 合 ( 广 并 了 其 2) f 
FOR ITI= 1 TO INT (B + DO.99) 
IF A:“ = 1 ;THEN 260 


FOR JJ = 1 Tb INT (9 + 0.99) - 


NE=N+ lsACNI = 三 + 卫 关 了 

NEXT J 四 
N=N+l:AN = 6:D = NOTD 
NEXT I:S = S+ 4 

FOR I = 1 TQN STEP 2 

POKE S,A(I + 1)A+#8B+ AI):S = 
S + 1 


NEXT II POKE 83 0 

己 DKE 239， 各 4 FOKE - 1630O2 1 

， POKE， 二 16299 ,0 
fc= INT (X(1l) / 7)C = X(t1) -一 
N sx 7 . 

FOR TI = YI1) TB YI(2) 

F = INT (TIT/7/ 8):G = INT (FF / 
B):H= 一 F 一 BH#fG: 攻 = 工 一 户头 

-B， 

= 8132 + 1024 并 K 二 128. 关 HH 十 

40#G+NIJ= X(1) 
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csUOD IF 4 = 口 THEN 330 


3S1O R = PEEK (SGS) /2r>C 

xs20 FOR D = C TO 6 60TO 340 

330 R = PEEK (S): FORD=OTO 6 

3S4G9 M = INTIR /.2)3PR.= RM 并 忆 
R = M - 

SSD IFJ > X(2) THEN X -= XX: GOTO 

3S9D 

本 各 口 POKE 228,127 夫 F: DRAW 1 AT 
ssY . 

3S70J=J+ 1l:X=.X.+ As NEXT D 

3S8B0OS=S+ 1 6G0TO 330  ， : 

350Y=Y+ B: NEXT I 


400 PFOKE - 16368,0: IF PEEK ( - 
16384) :< 128 THEN 400 
410， TEXT : HOME : END 


程序 GP :2905 能 对 指定 的 一 个 矩形 匡 域 内 的 图 形 进行 放 
大 处 理 〈 局 部 放大 )， 也 可 以 对 一 幅 完整 画面 进行 变形 处 理 
( 变 宽 或 变 窗 )， 使 之 达到 更 为 夸张 的 效果 。 

使 用 方法 ; 

. 将 两 幅 图 形 分 别 读 入 第 一 页 和 第 二 页 图 形 显示 区 。 例 
如 BLOAD P1,A$2000v ,BLOAD P2:A$4000vw。 

. 运行 上 述 程序 ， 屏 幕 土 出 现 第 一 页 图 形 “(P1)， 并 在 
屏幕 左上 角 显 示 一 个 “ 厂 " 形 状 的 闪 动 光标 ， 此 时 可 按 工 ， 本 ， 
K， M 键 控制 光标 作 上 、 左 、 右 、 下 4 个 方向 移动 ， 在 移 到 
需要 放大 处 理 的 那 一 部 分 图 形 左 上 角 时 ， 按 .4 下 S C” 键 ， 
光标 立即 变 成 “jj" 形 状 ， 再 按 动 上 述 4 键 ， 至 需要 处 理 的 图 
形 右 下 方 ， 重 按 “ 正 S C” 键 ， 即 可 确定 剪辑 的 图 形 范 围 。 

. 输入 横向 放大 系数 A 和 纵向 放大 系数 B， 并 输入 起 始 
坐标 X、 立 。 这 时 即 可 看 到 被 剪辑 处 理 的 图 象 由 起 始 位 置 又 、 
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Y 处 逐步 显示 出 来 〈 在 第 二 页 )。 

.图 形 显示 完成 后 ， 按 任意 键 结束 。 用 BS AVE 文件 
名 ，A$ 4000， 革 $ 2000 存 盘 ， 以 后 使 用 时 ， 用 BLOAD 文 
件 名 ，A$ 4000 调 入 内 存 , 加 显示 程序 段 , 即 可 看 到 图 形 P1 处 
理 剪 辑 过 的 图 形 合并 在 P2 图 形 上 。 

. 若 只 对 第 一 页 图 形 作 单 一 放 缩 处 理 ， 请 改动 250 名 
为 HGR2，360 句 改 为 ， IF P =1 THEN DRAWI1 AT 
X，Y。 这 样 可 以 加 快 显示 速度 。 


第 四 节 图 形 编 辑 . 


存放 在 $6000 一 中 618 巳 单元 中 的 机 器 语言 程序 ,是 一 个 
可 以 对 整 幅 图 形 实行 编辑 的 工具 软件 ， 文 件 名 为 GP 2906， 
其 特点 是 简洁 、 方 便 。 

将 图 形 编 辑 程序 GP 2906 装 入 内 存 后 ， 再 将 所 需 编辑 图 
形 调 至 高 分 辨 率 第 一 页 ， 执 行 CALL 24576 (BASTIC 状 


网 2.63 
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态 ) 或 6000G / (监控 状态 下 ) ， 就 可 以 对 图 形 进行 编辑 加 
工 。 

按 4 D 键 使 图 形 垂直 下 移 ; 按 < 工 ” 键 使 图 形 水 平 左 移 ; 
按 “YT” 键 使 图 形 左右 翻身 ; 按 “ X7 键 使 图 形 上 下 其 倒 ; 按 “Cy” 
键 使 图 形 反 相 ， 按 “ 刁 ” 键 则 结束 运行 。 

下 面 是 一 个 运行 实例 ， 编 辑 前 的 图 形 只 有 一 个 米 老 鼠 坐 
在 汽车 上 利用 程序 GP 2906 水 平移 动 和 左右 翻身 的 功能 ， 画 
画 上 出 现 两 幅 互 为 镜像 的 米 老 鼠 图 案 ， 见 图 2.63。 

程序 GP 2906 清 单 ; 


60oo- AD 5350 Co AD 52 Co AD 54: 
6008- CC0 AD 57 Co AO 00 84 SA 
co0lo- 84 SC AO0 40 84 3B C8 84 
ol8--SD AO BF 958 0A 0A 29 1C 
6020- 85 15 98 6A 6 6A 6 29 
6028- 05 05 15 09 20 91 SC 98 
6030- aA 29 EO 85 14 6 6 29 
cose- 18 05 14 91 3 88 CO FF 
6040- DO D9 2C 0 Co 10 FB AD 
oo048- 69 CO CC9 L4 DO <C AO 2z8 
6050- 88 89 00 20 99 00 42 98 
oo058- DO FA2z olt BD 90 40 85 
6060-~ 14 BD 00 41 -85 15 A0 28 
co068- 88 BL 14 85 3A B9 00 42 
6070- 91 14 5 3A 2939 909 42 98 
6078- DO0 EE 8A FO 0A EB EO CO 
6080- DO DA A2 00 4C 5C 60 45C 
6088- 42 60 C9 CC Do 28 A2 Co 
6030- CA BD 00 4 85 14 BD OO0 
6098- 41 85 15 A0 00 Bl1 -14 85 
ao0hAo- SA Ce Bl 14 89 91 14 C8 
60A8- CO 27 D0 F5 A5 SA .91 14 
OoBo- 8A Do DD 4C 42 60 2C 10 
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200BB-: C0. 69 D93 DO0-SB AO 60 B4 
Ooco- 11 64 11.B9 00 40 85 14 
66C8B- B9 00 41 85 15 Ah2 27 86 、 
60Do- SEA0 00 AhA2 13 84 3A A4 
.6ODB-~ 3 Bl 14 85 3B 85 3C A4 
_OOEO- SE Bl 14 85 3D 85 SF AO 
ACEB~ 6068 006 必 B: 6N 988 DO FA DO6 
anFo- SC 6A A4-SE 91 14 Ah 608 
.6OF8- 06 3D 6A 88 DO FA 06 了 SF 
6loOo0- 6 A4 SA 91 14 EC6 SEEO 
oOxt0B- 39- E4 3SE-DO CA E6 .11 A2 
6llio- Co E4 11 DO-AC.4C 42 60 
clle- Ec9 Phg Do 406 2 .60 A0 00 
eti20~ 8B4 11 AD BF 8B4 12 A4 Ti 
ol28- B9 Go 40 85 14 B9 00 41 
6130- 85 15 A4 12 B9 00 40 85 
6l138- 16 B9 00 41 85 17..A0 00. 
6l40- Bl 14 85 3 Bl 16 91 14 
41486- AS5 SA 91 16 CB. CO 28 DO 
61S50- EF EO 11 Ce 12 E4 11 Da 
6l58- CD 4C 42 40 C9 CS .DO 2A 
6l160- Ah 20.82 40 AD 00 .20 0 
6l68B- 493 FF 6A 8D.00 320.EE 65 
6l170- 6 EE 6C 6 DO EE .EE 66 
6l178- 61 EE 6D 61 EC 66 61 DG 
0O180- ES 8C 66 61 8C 6D 61 4C 


6188- 42 60 C9 C5 D0 F9 60 


程序 GP 2908 是 一 个 功能 较 强 的 图 形 编 辑 程序 ， 采 用 
BASTIC 语言 编程 。 其 中 调用 两 个 机 器 语言 子 程序 ， 一 个 就 
是 上 面 介 绍 的 GP 2906 程 序 〈 囊 6900 一 $618 已 )， 另 一 个 是 
GP 2907 程 序 〈 趾 300 一 $3BF)， 后 者 可 以 对 调 进 内 存 的 图 
形 进行 反 相 、 翻 身 、 斯 倒 等 九 项 功能 处 理 ， 前 者 则 对 调 进 内 
存 的 图 形 进 行 垂直 下 移 、 水 平 左 移 等 四 项 功能 处 理 ， 配 合 使 
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本 
行程 序 GP 2908 后 ， 机 器 自动 调 进程 序 GP 2907 和 程 
让 GP2006 旭 内存. 然后 给 出 “INPUT PICT NAME:” 
的 提示 ， 这 时 操作 者 输入 任意 一 个 已 存 于 盘 片 中 的 图 形 名 ， 
并 按 回 车 ， 此 时 磁盘 机 动作 ， 稍 等 片刻 后 ， 图 形 即 自动 调 进 
内 存 ， 然 后 按 数 字 键 1 一 9 中 任意 一 个 数字 ， 图 形变 换 ， 形 态 
各 异 。 当 您 满意 某 一 个 已 变换 好 的 图 落 时 ， 再 按 数字 0 ， 进 入 
编辑 状态 ， 按 5D” 键 使 图 形 下 移 ， 按 % 工 ” 键 使 用 形 左 移 ， 本 
合 业 用 站 而 个 娠 ,使 了 形 和 子 怪 让 中 的 合 间 应 然后 按 “ 正 ? 
结束 ， 处 理 好 的 图 形 可 以 存盘 ， 也 可 以 打印 出 来 。 
程序 GP 2907 清 单 ， 


OOsO0O- 20 5 03 20 25 03 9 28 
0308- 8 FC 85 EE A9 4F 95 FE 
DOsloO- BBS EF 20 25 03 A9 50 85 
0318- FC 985 EE A9 77 85 FE 8B5 


DsS20-, EF 20 25 03 60 ADO OO Bl 
D3S28- FC\eS FB A2 07. 46 FB 206 
D330- FA CA DO F9 6h9 7F 25S5 FA 
338- 85 FG 84 EB 38 AS FE 台 5 
0340- ES ES EB 85 FE AO 00 AS 
3S48- FA 31 FE AS ES 8BS FE A4 
DSS50O- EEB Ce ko 14 DOD DLL AS FD 
Dss5e- 18 69 04 85 FD AS FF 1 
O3Soo- 69 04 BBS FF C9 40 230 BD 
COs6B- EGG EC AS EC C9 02 FO 19 
DO3S70- SS FC 18 69 960 895 FC AS5 
O3S78- FE 1 69 80 85 FE AS ED 
Seo0- SS FD AS 2 95 FF 4C 25 
DO3SeeB- os 60 00 84 EC AS EE 885 
3S20- FC AS EF 95 FE E6G ED AS 
03928- -ED B5 FD EO 28 A5 28 85 
CSAD- FF C9 虽 24 950 80 A9 00 5 
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DsAR- EC 6865.F6G 有 5 EE A9 :20 85 
osBO- ED 85 FD A9 20 85 28 85 
SBB-. FF A9 3237 'BS FE 895 EF “60 


程序 GP2908 清 单 : 


SREM 6F2908 
和 折 也 囊 . = CHR 记 (4) 
7 PRINT D 忆 5"BLOAD GF29071. 
日 “PRINT .D 蔬 SBLOAD GP2996， 
10 INPUT "INPUT PICT NAME: "53K 囊 
ss PRINT D 划 "BLOAD 长 蔬 ”， 1 
SO {HOME. 
PPOKE 一 16so4,6，POKE 一 1o297 
DO POKE 一 16300， 
70  POKE  - 16301 ,01: POKE 230， 殷 雪 
80 向 = “ANOUDUEXIT xs10HALF PAGE- NOR-~- 
SYMM COPY NA20HALF PAGE INYV-SY 
MM COPY ASDOHALF PAGE IOR-SAME 
COPY A40HALF PAGE INVY-SAME C 
DPY XSDUALL PAGE NOR-SYMM COPY 
AUALL :PAGE INV-SYMM COPY A7 
DUALL- PAGE NOR-SAME COPY ANBUAL. 
L PAGE INV 一 SAME COPFY . .NA9UREBLO 
闪 也 生 
30，、HTAB 1: VTAB 235: PRINT LEFT 下， 
《有 事 本 3) 8 有 启 二 MID 囊 〈 台 记 ,2) 十 
LEFT 叫 《A 币 ,1 ) 四 
35 移 = PEE 必 (一 1638B4) : IF 人 < 1 
8 THEN- FIR 8 = 1 TO 19093 NEXT 
3Q@= FRE (0):， GO0TD 50 
100  POKE  - 163068,0:Q = 昌 -~ 176: IF 
Qeo ORG > 9 THEN 90 
lo IF QTHEN- SOO 
120 IF Q 9 THEN PRINT : GOTO 5 
口 
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尼 台 O 


心口 O) 


信 = 填 T9 INFE- 《QQ 7 人 二 人 
写 

READ 全 韦 ， ， D， 蕊 ， 下 ， 司 ， HL， 了 长 
MNy DO， PE 


POKE- 781 ,APOKE 796,B: POKE 


8loy,C: PFOKE 811,D 
POKE 812,E，POKE 813,F: POKE 


Bt4;G:。 POKE 833yH， 
POKE 834，I: FOKE 835, Js POKE 


836,K ，POKE 8S51,L ， 
POKE 有 69, My POKE- 930,N: POKE 
94,0:-POKE 954,P 4 
NEXT Ri RESTORE 

TITF _ INT (@G 7/ 2) = Q /2 THEN 
POKE 8922,69:， GO0TO 220 

FPOKE 822,，37 

CALL 768 

IF Q > 4 THEN PFOKE :- 16299， 
0 POKE “ - 16302,0: POKE 230， 
64: FOR S = 0 TO 2000: NEXT 
GO0TO 60 

DATA 79, 119,251,162,7,70.251， 


人 人 < 工本 <54。 局 ， 生生 忌 厂 。 3 了 32， 世 


吕 

DATA _ 60, 100,250,760,52,3.234， 
76,71。S ,234， 20， 64 ,36， 本 29 2 
DATA 79,419,251,162，。 7 70O,251 , 
229,235,133,254,40,96,68，64， 
9 

DATA 人 4 口 ， 绅 口 ， 之 呈 虽 7 和， 司 了， 人 本 全 
76,7T, 3,234， 40,96， 60606640 
CALL 24576 


第 十 章 造型 动因 


本 章 首先 简 述 动画 设计 的 各 种 方法 ， 然 后 分 析 汇 编 语言 
调用 造型 表 的 原理 ， 接 着 介绍 单个 造型 动画 、 多 个 造 开动 画 
显示 方法 和 键盘 操作 控制 ， 最 后 给 出 一 个 造型 动画 的 设计 实 
例 。 

文中 提 到 的 调用 造型 的 机 器 语言 子 程序 ,. 多 个 造型 图 形 
数据 都 可 直接 引用 ， 其 程序 结构 、 设 计 思 想 、 编制 原理 都 可 
以 作为 编制 动画 设计 的 借鉴 。 


第 一 节 简单 动画 显示 技术 


所 谓 动 画 显 示 技 术 ， 是 指 将 屏幕 上 的 图 形 ， 按 照 一 定 要 
求 有 规则 地 显示 其 变化 或 活动 的 过 程 。 

如 何 形象 逼真 地 模仿 客观 实体 的 活动 过 程 ， 特 别 是 有 生 
命 物体 的 活动 情况 ， 常 常 是 游戏 程序 和 教学 辅助 软件 中 十 分 
需要 的 ， 因 为 一 个 连续 运动 的 、 真 实感 很 强 的 动画 ， 会 缩 人 
们 留 下 深刻 的 印象 。 

在 竹 画 显示 技术 中 ， 动 画 对 象 的 图 形 组 成 越 复杂 程序 
处 理 的 速度 就 越 慢 ， 而 图 形 闪 烁 及 呆滞 现象 也 会 随 之 产生 。 
肉 此 ， 减 少 画面 的 闪烁 ， 使 图 形 显示 逼真 ， 就 是 动画 显示 技 
术 中 的 难点 和 关键 。 

可 以 用 各 种 方法 组 织 和 变 计 动画 页 面 。 例 如 显示 一 幅 图 
形 ， 然 后 把 它 抹 去 ;把 这 个 图 形 进 行 变换 ， 再 予以 显示 ， 当 
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me 


上 述 过 程 迅 速 地 一 幕 接 一 幕 进行 时 ， 在 视觉 上 便 产 生 运动 。 
但 随 着 组 成 图 形 的 数据 增多 ， 实 更 变 换 的 计算 时 间 加 大 ， 图 
形变 化 的 速度 减 慢 ， 最 终 便 失 和 失 了 动态 变化 韵 连 续 性 ， 这 是 
一 个 缺点 。 另 一 种 常用 而 有 效 的 方法 是 ;把 图 形 的 动态 变化 
情况 分 成 一 幕 幕 ， 并 按 幕 存 贮 起 来 ， 则 先 显示 第 一 幕 ， 接 着 
抹 去 第 一 幕 ， 显 示 第 二 幕 ， 以 后 又 抹 去 第 二 奈 ! 显示 下 面 一 
幕 ……， 循 环 往 复 ， 同 样 也 能 实现 图 形 的 动态 变化 ， 优 点 是 
提高 动态 变化 速度 ， 但 增加 了 存 贮 空 间 。 再 有 一 种 实现 图 形 
变化 的 方法 是 采用 背景 变化 的 技巧 ， 这 在 电影 特技 中 经 常 使 
用 。 最 后 ， 也 是 我 们 这 里 主要 介绍 的 方法 是 ;利用 中 华 学 习 
机 绘画 显示 的 两 个 页 面 ， 将 动画 图 形 画 在 不 同 的 页 面 上 ， 然 
后 控制 屏幕 页 面 的 软 开关 ， 也 能 达到 良好 的 动画 胆 示 效果 。 
作为 一 个 实例 ， 我 们 可 以 利用 绘图 工具 软件 ， 在 高 分 辩 
显示 的 第 一 页 面 上 画 一 个 陷 着 眼睛 的 小 熊猫 ( 见 图 2.64)， 而 
在 第 二 页 面 上 画 一 个 闭 着 眼睛 的 小 熊猫 ( 见 图 2.65)， 然 后 用 
程序 GP2A 01 来 实现 小 熊猫 不 断 地 奸 眼 。 


程序 GP2 失 01 清单 。 

与 . -GOSUB 1OQ 

10  POKE  - 16304,0 

20 “PDKE -16297， 

50 POKE ” - 16302，0 

40 PORKE -~ 164300，0 

45- “FOR JJ = 1 TO 50: NEXT 了 
50 ”PFOKE… 一 16299 .0 


55 FOR P= 1TTO 5o NEXTPF 


100 D 利 = CHR 上 吊 〈4) 

110 PRINT D 贡 "BLOADF2-1，,A 和 2000， 
120 PRINT D 事 "BLOADP2--2，A 囊 4600， 
140 ”RETURN : 
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第 一 页 的 熊猫 图 象 ， 见 图 2.64。 


2.64 
第 二 页 的 熊猫 图 象 ， 见 图 2.65。 


图 2.65 


程序 GP 2A01 的 软 开 关 是 用 POKE 指 令 设 置 的 ， 也 可 

以 用 调用 相应 的 机 器 语言 子 程序 GP2A02 来 完成 。 方 法 是 在 

监控 状态 下 按 入 机 器 语言 子 程序 SP2A02， 然 后 用 程序 CeP 
2 A03 来 实现 熊猫 用 眼 的 动态 变化 。. 
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机 器 语言 子 程序 GP2A02 清 单 。 
#3SGO0O。SL93 

0300- AD 50 5C9: -三 57 co AD 52 
0308- :CO AD 54:C0O A5 00 20 A8 


GO31oO- FE AD 55 CO AD 00 20 全 只 
01lB- PFC 6 


对 应 的 汇编 语言 清单 。 


oO3oO0- AD 5D :Cg LDA 襄 COSO 
0303- AD 57 Co LDA 。 囊 COS7 


CoOe- ”AD 52 Co LDA ” 书 CO52 
3095- ”AD 54 Co DA 车 CO54 
OOC- AS5 Oo LDA  $OO 
DO3SOE- 20 A8_FC JSR 村 FCAS 
0O3ll- AD 55 5o LDA ” 相 COS55 
03sl4- AS5 0o0 LDA  $00 
0316- 20 A8 FC JSR 下 FCAS8 
D35l9- “60 RTS. 

程序 GP2A03 清 单 。 

5S=150 


49 D 训 = CHR 吉 (4) 


7 


30 PRINT 六 %BLDADP2-2; Ag$4000， 

40 PRINT D 中 "BRUN GP2A02" 

50 、POKE 0,S 

60 FOR J = 1 TO 20: CALL 768 

了 人 NEXT 呈 GUTO 己 包 

GP 2A 04 又 是 一 个 动画 显示 的 实例 ， 在 这 个 程序 中 , 利 
用 了 分 页 显示 技术 ， 图 形 搬家 方法 ， 以 及 调用 左右 易 位 处 理 
机 器 语言 子 程序 CF 2402， 结 果 在 屏幕 上 看 到 的 一 个 小 熊猫 

382 


左右 翻身 同时 插头 的 显示 ， 生 动 活 泌 ， 富 有 情趣 。 

将 程序 GP 2 A04 和 程序 GP2402 同 存 一 盘 中 ，RUN 
GP2A04vw， : 即 可 看 到 活动 的 画 面 。 

性 序 GP?A04 清 音 


DADGP23021 As 6， 
es - 144 


需 6 人 
5 让 己 局 时 
16z 020 
“11663003 
1 TO 500: NEXJT JJ 


-TO299， 9 。 
S5 FORP = 1 TO 50D3 NEXT 
DGGQTO-4G- 

1 % ES 4600<2900.SFFFM N PS2: 全 全 ” 


11410 EGR CT 下 TB EN (X 囊 ) :PORKE 
襄 了 下 人 SG (MID 惠 〈(X 审 ,Il1)) 
+ 28: NEXT 了 PFDKE 72 
1 2 RETURN 


程序 GE 2402 清 浊音 。 


其 0-g53 
池 人 村 
SO- 99 00 892 00 Ah0DD 85S EC 
0308- 20 11 F4 680 6060 B1I 26 3 
319- 3SE_03 AS EE 8B5 EF 938 AAA 
3S18- BE 1F 03 A9 27 38 E9 二 
03207 AAS-B1 26 20 SFE 有 03 AS5 EF 
日 了 2B-- 可 1 .36 全 N 有 日 5 EE. 31 全 
六 王 从 习 昌 区 站 二 DO 和 同 E 右 于 CC 三 
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原 图 象 见 图 2.66。 


| 天 
站 
中 站 
RU 直 


1 THRT 


人 
| 站 出 中 


图 2.67 


0 一 EC C9 CO Do GCC5 60 86 ED 
0 人 0 2 2 FE OGA A2 D7 OA 了 
0348- EE CA FEO OD FO ODS 4C 406 
DO 5 和 站 ED 4O 
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第 二 节 ”汇编 语言 调用 造型 表 


编制 一 段 汇编 语言 来 调用 造型 表 , 不 仅 速度 要 比 .BAS IC 
调用 造型 表 快 好 几 倍 ， 而 且 用 在 动画 设计 上 ， 动 态 效果 突出 
且 无 闪烁 感 。 

编制 机 器 语言 调用 造型 表 ， 并 不 十 分 麻烦 ， 只 需要 了 解 
一 上 者 衣 的 存单 元 和 调用 ROM 中 些 有 关 造 型 的 外 器 

言 子 程序 ， 同 时 正确 存 贮 造型 表 。 

我 们 先 给 出 调用 造型 表 的 机 器 语言 书 程 序 〈 吊 300 一 
$32B), 并 给 出 对 应 的 汇编 语言 程序 (文件 名 统称 GP2 A05 ) ， 
然后 逐 段 加 以 解释 ， 从 中 可 以 了 解 到 程序 编制 的 方法 。 

. :程序 GP2A05 清 单 。 


osoao- 20 E2 FS 69 00 85 E8 AS 
G308- 60 85 E9 A2 603 20 FO FO6 
DSS10- A9 0D3 85 E7 A2 0D1 20 30 
03518- F7 AhA2 80 Ah0 00 A9 32 20 
O3S20=- 11 F4 6 IAA A4 1B 9 00 
oOs28- 20 5D F6 60 


程序 GP2A05 的 汇编 语言 清单 。 
Oxsoo- 20 E2” PS JSGR  。 蔬 FSE2 
93035- 69 00 LDA 。 # 韦 0O 
、o0365- ”85 ES9 STA 。 $EB 
xs07- ”An9 60 LDA  。 间 唐 6 
309- 85 E9 STA 。 囊 E3 
DO3S0B-  A203 LDX 。 #03 . 
DO30D- 20 FOF6O6- JSR  $F6FO 
0Oslo- ”89 03 LDA 和 碍 旧 03 
Ole 一 8Ss E7 STA 。 囊 E7 
0314r  A2 01 -LDX  #Dl 


[ 
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0351l6- 20 30 F7 JSR  $FZ30 


口 了 1 93 一 A2 SO LBDX 井 革 Be 
QOStiB- AD oaB ， LDY 间 囊 品 吕 
51D- 台中 卫 人 2 LDA 井 种 王 节 
SSTF 29. 11 F4 JSR 囊 F411 
03522-  A6 1 LDX 吊 二 全 
OO3S24--  .A4 18B LRY 审 1 甩 
O326- ”Ah9 00 LEDA 提 囊 站 品 
口 322 日 一 20 5S5D FCG 可 司 民 串 F 和 SSD 
.0O3S2B-- 和 只 站 S 
& ， 
一 、 高 分 辨 图 形 页 ` 面 的 : 琶 置 


本 APELESOFPT- 笠 ， 首先 应 该 设置 高 分 辨 图 形 显 
示 页 面 ， 例 如 ， 高 分 辩 第 一 页 作 图 页 〈 相 当 于 HGR )- 的 入 
口 地 址 为 下 下 3 吾 2 ,高 分 辩 第 二 页 作 图 页 (相当 于 HGR2) 
的 入 口 地 址 为 $EF3D8， 用 机 器 语言 调用 , 其 指令 分 别 是 :。 

20 刁 2 .F3 JSR $F3E2，… 启 动 第 一 页 

20 D8 F3 -JSR 事 F3D8， 启动 第 二 页 

本 例 是 局 动 高 分 辨 第 一 页 作 图 页 面 。 

同 BASIC 一 一 样 ， 若 要 清除 当前 屏幕 画面 (用 HOME 指 
令 )， 机 器 语言 则 应 这 样 安排 ; 

20 58 FC JSR $FC58 

其 中 $FC 58 为 HOME 指令 的 入 口 地 址 。 本 例 没有 安 
排 ， 

二 、 造 型 表 的 地 址 

在 BASIC 程 序 中 ，$E 世 8 (232) 和 囊 己 9 (233) 两 个 
单元 是 专门 用 来 存放 造型 表 首 地 址 的 ， 并 规定 造型 表 首 地 址 
的 低位 《本 全 是 00》 放 在 利 下 3 中 而 造型 表 首 地 址 的 高 

位 〈 本 例 是 $60) 放 在 $ 忆 9 中 。BASIC 程 序 中 应 安排 : 
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POKEE 232，0 : POK 下 233, 96 

对 应 的 机 器 语言 应 为 ; 

A9 00: 直 DA 井 $00 

35 E8 STA $E8. 

A9 60.LDA 朱 $60 

85 .E9 STA $E9 

本 例 造型 表 地 址 放 在 .$6000 开 始 的 单元 中 。 只 有 这 样 安 
， 造 型 表 才 能 送 入 内 存 并 付 诸 使 用 。 

三 、 高 分 辩 作 图 的 颜色 

在 BAS IC 程序 中 ， 通 过 HC OL OR 指 令 设 定 高 分 辨 作 


图 的 颜色 ， 例 如 HCOL OR = 3 。 但 在 汇编 语言 中 颜色 代码 
(可 到 $00 一 机 07 中 一 个 ) 应 放 在 X 暂 存 器 中 ， 并 皇 必 须 通 
过 调用 程序 名 为 HCOL OR 的 机 器 语言 子 程序 来 实现 ， 它 的 
入 口 地 址 是 和 书 下 6 F 0。 所 以 机 器 语言 中 颜色 设 定 应 由 下 面 


两 句 来 实现 ， 
A2 03 LDX ， 井 $03 
20 FI0 Fi JSR ” $F6F0 
本 例 颜色 代码 为 03。 


四 、 绘 图 关 量 的 大 小 
在 BASIC 语 言 中 ,关于 绘图 天 量 的 大 小 是 用 SCALE=N 


设 写 的 ， 例 如 S CALE= 1 表示 造型 表 的 放大 倍数 为 1 (不 
放大 )。 用 机 器 语言 处 理 上 述 指令 时 ， 要 把 造型 放大 的 值 放 在 
下 下 7 单元 中 ， 即 


A9 03 ELDA 厅 和 $03 
85  E7 STA 书 E7 
本 例 造 型 放大 值 取 03。 
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五 、 造 型 表 显 示 位 置 〈 起 点 位 置 ) 的 确定 

在 BASIC 语 言 中 如 执行 DRAW 1 AT140, 94， 表 示 将 
第 一 个 造型 绘 于 141 列 95 行 开始 的 地 方 。 在 机 器 语言 中 则 要 
调用 $F 411 开始 的 一 段 机 器 语言 子 程序 ”并 在 调用 前 将 显 
示 起 点 位 置 水 平 坐 标的 低位 放 入 X 暂 存 器 中 ， 高 位 放 入 Y 暂 
存 器 中 ， 而 造型 显示 起 点 位 置 的 垂直 坐标 放 在 累加 器 和 中， 
即 有 下 面 4 条 指令 :; 全 


A2 80 LDX 井 $80 
A0 00 LDY 夫 $00 
A9 32 LDA 并 书 32 


20 1l1 F4 JSR  $F411 
本 例 坐 标 选 在 X=128,Y = 00 这 一 点 显示 造型 位 置 。 
六 、 调 用 造型 的 指针 设 定 

调用 第 几 个 造型 ， 这 也 可 以 用 调用 机 器 语言 子 程序 来 实 
现 ， 其 入 口 地 址 在 $ F730 中 , 调用 前 应 将 造型 序号 〈 第 几 个 
造型 ) 之 值 放 入 X 暂 存 器 中 ， 即 ; 

A2 01 LDX 并 和 01 

20 30 F7 JSR  $F730 

本 例 是 调 第 一 个 造型 , 指针 号 为 01。 此 值 相 当 于 BASIC 
中 造型 绘图 命令 DR AW( 或 XDR AW) 后 面 紧 跟 的 参数 。 

七 、 关 于 造型 显示 

在 BAS IC 语言 中 有 两 个 指令 , 即 DR AW, XDR AW。 前 
者 给 出 造型 ， 后 者 消除 一 个 造型 ， 实 际 上 是 用 互补 颜色 再 
给 一 次 造型 而 达 抵 消 目的 。 在 桃 器 语言 中 上 述 两 条 指令 的 入 
口 地 址 不 同 ， 前 者 是 书 F601, 后 者 是 上 $ 下 65D 。 但 调用 这 两 
个 子 程序 前 ， 应 将 旋转 值 〈 对 应 BAS IC 命令 ROT= N ) 
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放 在 累加 器 和 中， 至 于 造型 表示 地 址 的 低位 、 高 位 值 分 别 放 
在 X、Y 暂 存 器 中 《其 值 为 由 1A， 囊 1B), 即 ; 


AH 1A LDX $1A 
A4 1B LDY $1B 
A9 00  LDA ## 囊 00 


20 5D F6 JSR  $F65D 

本 例 是 旋转 值 为 $00， 即 不 旋转 。 

八 、 返 回 

60 下 工 S 

至 此 ， 整 个 用 机 器 语言 调用 造型 夫 的 设计 思想 和 方法 人 
述 完 成 。 

最 后 ， 我 们 给 出 一 个 造型 数据 见 程序 GP2A06， 它 放 在 
$6000 一 $6072 中 , 在 执行 了 程序 GP2 和 A05 的 机 器 语 青 子 程序 
前 ， 先 将 $6000 一 $6072 的 造型 数据 调 入 内 存 ,然后 在 BA- 
SIC 状 态 下 执行 CALL768w ， 即 可 看 到 一 辆 汽车 在 屏幕 上 
闪 动 。 

程序 GP 2 A 06 清 单 。 

6000- 01 00 65 00- 00 41 38 20 

6008- 25.2C 2D6S 0C 0 90C 2D 

60106- 2D 2D 2m 2D 15 135 6D 2 

6018- 2D 15.2D ?D 2E 2E 3SE 3E 

.6020- BF 37 SF SC 16 24 1C SF 

6028~ 17 17 36 3P SF SF F7 27 

6030- SF E4 1C SF 17 3E SF 2D 

6038- 25 6D 15 F6 .SF 07 20 .64 

6a040-- 2D 04. 20. 05 298 28 2D 20: 

6048- 2D. 35. 35.35 3F 3F SF 24 

6050-- 34 36:.SF 3F 了 4 49 52 

6058B- 3A 2D 4E 49. 49. 20: 64 2D 
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anD060- B6 1E 7F 49 09. 2C 25 SC 
64068-. 2C 2D. 2D 3SC SF SF EF <sF 
6070- SF 27 2D 


第 三 节 ”造型 图 形 的 动 商 显 示 


利用 造型 技术 ， 可 以 把 一 此 实物 绘制 成 造型 图 ， 并 把 它 
存放 在 内 存 中 。 然 后 用 机 器 语言 子 程序 或 者 BAS IC 程序 来 
调用 ， 就 可 以 形成 图 形 的 动画 显示 。 于 

在 这 一 节 中 ， 我 们 不 准备 过 多 地 谈 及 造型 原理 ,造型 表 
存 贮 、 造 型 绘图 命令 以 及 造型 表 的 应 用 等 方面 问题 (有 关 这 
方面 内 容 ， 请 见 《 中 华 学 习 机 汉字 软件 》 有 关 章 节 j), 而 是 给 
出 几 个 造型 图 形 动画 显示 的 实例 。 

这 些 实例 不 仅 富 有 情 起， 而且 可 以 从 中 学 到 不 少 有 实用 
价值 的 工具 软件 和 组 织 动画 的 方法 。 

一 、 飞速 奔驰 的 汽车 

整个 设计 由 三 部 分 组 成 ; 

“ 用 图 形 表 绘 出 小 汽车 。 

' 用 逐 位 移动 方法 编制 机 器 语言 。 

' 实现 汽车 动画 的 B AS IC 程序 控制 。 

小 汽车 的 图 形 表 放 在 首 地 址 为 蔬 8500, 以 文件 名 GP2A07 
存 于 磁盘 中 。 造型 表 见 GP 2 A07。 

程序 GP 2 A07 清 单 。 

日 SODO- DO 日 有 OO5 00 0D05441. 59 20 

8508- 25 2CE 2D 65 0 GC 6 2D 

名 号 1 口 一 2D 2D- 2B- 2D 15 1 AD < 

8518- 2D 1 2D 2D 2E .和 汇 SE 
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昌 520- BF 37 SF .SG 1C: 24-1C SF 
8528- 17 17 36 SF SF 线 F7 27 
8530-. SF E4 1C SF 17 3E SF 2D. 
8538- 25 的 15 F6 3F 07 20 64 
8540- 2D 04 20 05- 28 28: 2D 2D 
8548- 2D 35 35 35 3F 3F SF 24. 
8550-:- 34 36 3F SF SF 46 49 92 
8558- 3A 2D.4E 49 49 20 64 2D 
8560- B6G IE 7F.49 09 2C 25 SC 
83S68- 2C 2D 2D SG. SF SF EF. 

.B570- SF 27 2D 4F 54 52 41 43 


高 分 辩 率 图 形 逐 位 平移 的 机 器 语言 程序 ， 取 名 为 GP 2 
A08, 和 上 面 图 形 表 存 在 同一 磁盘 中 .GP? A08: 程序 清单 。 


DO0- 5- OC 85 有 5 5 07 Ah9 S0 、 
1008- 85 04 A9 RO 8S 0O6 A2 28 
1019- 699 08 .85 DF AhO 27 Bl 04 
l0teB~ 2 26 A 00-B1 04 2A 91 
1020- 04 OA CB CA DO.F6 A2 29 
1028- AD 27 Bl1 06 32A 2 A0 00 
1030- Bl 06 26 91 06 OA C8 CA 
1038- DO F6.A2 28 18. 5 05 69 
1040- .94 985 05 85.07 C6 DOF DO- 
1048-~ C8 A5 of 85 05 85 07 60 


主 程序 采用 BASIC 语言 编写 ; 取 名 为 GP2A09， 这 样 
运动 方法 比较 简单 ，RUN GP 2 A09 即 可 看 到 小 汽车 在 屏幕 
上 的 动态 显示 。 
程序 GBP 2 入 09 清 单 。 
16 了 = CHR$ 44) POKE 252,00: FOKE 


信 巧 本， 二 壮 本 
< oo 


35 PRRINT 5 和 "BLOAD GPF2AtGrA 贡 SS500" 
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30 HGR ::HNCOLOR= 瑟 

40” RGT>- 6O: SCALE= 1 
SDHCNME :。 POKE 二 全 了 

如 FRINT D 市 1 "BLOAD GP26D8” 
70 HPFLOT 01S9 TO 273，1 呈 59 
BO FOR TI = 1 TO 279 

3 CALL 4096 

1O0 DRAN 1 AT 工 ,145 

1 

120 FOR I = 1 TO 25004 NEXT 工 
130 TEXT 3 HOME :END 


在 行进 中 的 小 汽车 瞬间 图 形 ， 见 图 2.68。 


图 2.68 


几 点 说 明 : 

@ 232 ($ 已 8) 和 233《 $ 瑟 9) 号 单元 ， 是 专门 用 来 存放 
造型 表 地 址 的 ， 前 者 存放 造型 表 首 地 址 的 低位 〈 即 .下 8500 中 
的 00), 后 者 存放 造型 表 首 地 址 的 高 位 〈 即 $8500 中 的 85)。 只 
有 把 造型 表 送 入 内 存 《 现 BAS IC 程序 20 铅 )， 并 将 首 地 址 
装 入 $E8 和 肿 下 9( 见 BAS IC 程序 10 句 ) 两 个 单元 中 , 这 个 
造型 表 才 能 使 用 
图 $8500 单 元 放 的 是 图 形 定义 的 个 数 ( 本 例 只 有 一 个 千 
型 ， 所 以 放 01)3 $$8501 单 元 按 造 型 表 存 放 规则 是 不 用 的 ， 所 
以 放 00, 下 8502 单 元 应 放 的 是 1 号 图 形 定义 首 地址 与 叫 8500 
的 偏 移 量 低位 值 ， 即 05，: 而 高 位 值 偏 移 景 是 00， $$8504 单 元 
放 的 也 是 00， 没 有 什么 影响 .所 以 从 吊 8505 单 元 开始 才 是 真 
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正 的 小 汽车 图 形 数据 。 而 在 图 形 数据 放置 完毕 后 ， 应 再 用 一 
个 单元 〈 本 例 是 和 $8573) 放 00， 以 示 图 形 资料 结 束 。 任 何 造 
型 的 图 形 造型 表 必须 按 上 述 规则 存放 。 

图 BAS IC 程序 中 CALL 4096 是 执行 程序 GP2A08， 
4096 是 十 进 制 数 ， 它 相等 于 十 六 进 制 的 $1000。 

四 100 句 中 DRAW1 ATI，158， 是 指 对 第 一 个 造型 ， 
在 (I，158) 位 置 上 画图 ， 注 意 其 中 工 的 变 值 ， 因 而 汽车 能 
动 起 来 。 

二 、 迅 速 移动 的 动物 

整个 程序 组 织 和 上 面 基本 类 似 ， 只 不 过 造型 中 的 数据 和 
小 汽车 不 一 样 ， 它 是 一 架 飞 机 ， 也 可 以 说 像 一 只 小 岛 ， 而 在 
动态 显示 中 则 又 像 是 一 个 骑 士 骑 着 骏马 飞 奔 。 存 贮 地 址 ; 
$8500 一 $8532, 文件 名 为 GP2A10。BASIC 程 序 已 经 稍 加 
改动 〈 见 程序 GP 2 Al1) ， 不 再 多 述 ， 其 中 用 了 程序 GP 2 
A08。 

造型 表 GP2 Al10 清 单 。 

8500- 01 00 04 00 75 36 2E 2D 

8508- 2D OE 76 76 76 SEE OF 18 

BsSlio-oOoF l8 OoF 19 3F SF 7 06 

8518- 36 30 3SF 27 24 24 SF sF 

.8520- F7 1E 1E 27 0D 18 2C 20 

8528- OD le 2C 28 2D 2D 24 6C 

8 字 30- 6C 00 1C 四 

动态 显示 瞬间 的 图 象 ， 见 图 2.69。 

CA 

2.69 
应 该 指出 的 是 ， 由 于 机 器 语言 执行 速度 很 快 ， 因 而 上 述 
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感 。 


10 D 币 -= CHR 囊 :; 4 OKE 232.00: POKE 
3 

中 PRITNT-D 委 2BLGADGPF2607 ,和 8500" 

-3B HGR : DLLBR=* 地 潭 ， 

40 RoofT= 00:， SCALE=. 了 

3S0， HOME :， POKE 12，33 / 

心口 ， PRINT 中 囊 SEOAD GPRP2AOS8n 

79 HPFLQOT 9 41593 TQ 2794159 

8G FOR I 富 t+ TO 273 

350 CALL 硒 096: .7 : 

寺 筷 包 了 DRS 凤 了 1 后 六 : :和 158: 

110 “NEXT 了 

本 中 四 FT -= TO 2506: NEXT II 

130 TEXT HBME-: -END 
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三 、 向 上 移动 的 机 器 语言 程序 


存 贮 在 $ 300 一 下 343 单 元 中 的 机 器 语言 程序 ， 可 以 使 造 
型 图 形 向 叶 进 行动 态 显示 。 
程序 GP2A12 清 单 。 


0O300- 69 44. 85 E9 A9 03 85 E9 
soDB- 20 D8 FS 62 03 20 FO FA 
DsloO- 89 02 85.E7 69 AR B5 00 
SB- 20 20 03 20:2C 0 二 :CC6 09 
D320- AS5 oo C9 oa FO os 4C 19 
0328- 05.4C 14 .035- 有 2-0320 30 
330- F7 A2 64 AD OoR 95 60 20 
D338B- 11 F4 A9 060 A6 1 A4 1B 
0340- 2 和 DG GD 
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程序 CPP 2A12 有 以 下 几 个 特点 :， 

由 任何 一 :个 造型 表 (和 包括 索引 信息 和 图 形 定义 人 只 要 
放 在 下 0343 以 后 后 的 存 贮 单元 ， 就 可 直接 运行 ， 显 示 向 上 移动 
的 动态 图 形 , 而 不 需要 用 B AS IC 程序 控制 ; 占用 内 春 少 ， 
速度 快 。 

加 -可 以 运行 多 个 造型 ， 适 当 修改 程序 可 以 使 造型 图 形 
放大 ， 并 可 改变 图 形 -显示 的 位 置 。 

@@ 运行 方法 简单 ， 在 装 进 机 器 语言 子 程序 和 造型 表 后 ， 
在 BAS IC 状态 下 执行 CALL 768。 ,或 BRUNGP2A12vw; 
而 在 监控 状态 下 键入 300G 之 即 下 。 ， 

下 面 给 出 4 个 造型 表 ， 请 特别 注意 它们 都 是 存 贮 在 从 
0344 开 始 的 存 贮 空 间 中 。 
@ 飞机 造型 GP2A13 


344- 0l1 00 04 .00 

屿 348- 75 36 2E 2D 2D OE 76 76 
035o- 76 3SE OF :te OoF 18 OF 18 
0359- 3F SF 37 36 36 SF 27 24 
036o- 24 SF SF F7 1E 1E 27 0D 
DOxs6e- 18 2C 20 op 18 2C 28 2D 
0370- 2D 24 6C 6aC op 


思 汽车 造型 GP 2A 14 


23200344- 0dt 00 605 DO 

六 348- 00 41. 38 20 25 2C 2D 65 
DSSom oOcC DOC OOC 2D 2D 2D 23D 32D 
DSS58- 15 15 AD 2D 2D 15 2D 2 
D3S60- 2E 2E 3E 3E BF 37 SF 3C 
0368- 1C 24 1C 3F 17 17 36 SF 
039D- SF SF F7 27 3F 4 41C SF 
0O37B- 17 3E 3F 2 2 6D 15 F6 
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3BO- SF 07 20 64 23D 04 20 5 
亿 本 日 本 定量 2R 2D PPD 本 六 
0392D- 3F SF SF 24 34 36 3F SF 
03598-- SF 4A 49 93 3A 2D 4E 49 
DAD-~ 492 2 4 2D BEBO 1E 7F 49 
吕 SA3- 09 20 25 30 2C 2D 2D SC 
0O3SBO- SF 3F EF SF 3F 27 2D 00 


图 手枪 造型 GPR 2A 15 


cs44- 01 00 04 00 

0348- 2DP 2D .2D 2D 2D 2D 35. 了 

0350-~- SF SF 3SF SF SF 37 3S6 6 
DSS58B- 25 24 6C 49 SE 1IE 17 35 
OSs6o0- FB 03 00 3E-BF 


Q@ .跳伞 造型 GP 2A 16 


03544- 01 00 04 00 

0348- 16 0D 18 2D 28 0D 76 22 
3s50- 08 75 75 DF 1E 1E 1E OF 
oss58- 18 OF 18 OoF 18 4D 08 18 
03640- 36 36 D7 oOE 6E 2C BO SA 
0368- SF SC 2D 2D SE SF 6F 13 
0370- 3SE 4D 39 6C 09 00 1C 


最 后 请 注意 两 点 : 

人 机 器 语言 向 上 移动 的 子 程序 ， 存 贮 时 不 能 丢 尾 巴 , 即 
$0343 中 的 60 必 须 存 进去 ， 而 且 不 能 是 其 它 它 值 ， 否 则 动画 显 
示 失 败 。 


轩 书 0344 单 元 开始 只 能 存放 一 个 造型 ,而 且 .$0344 中 必 
须 是 01， 否则 显示 不 起 来 。 
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第 四 节 。 多 个 造型 图 形 的 动画 显示 


在 许多 游戏 程序 中 ;常常 看 到 屏幕 上 有 不 同 图 形 在 移动 ， 
引人入胜 。 这 里 介绍 一 个 实例 ， 谈 谈 组 织 这 类 程序 的 方法 。 
题目 是 这 样 的 ， 有 两 个 造型 ， 一 是 飞机 ， 一 是 汽车 ， 如 
何 通过 一 定 的 手段 ， 让 它们 在 不 同时 刻 向 上 动画 显示 ， 即 有 
时 显示 飞机 ， 有 时 显示 汽车 。 
组 织 这 类 程序 的 思路 有 三 点 
* 采用 搬家 的 方法 ， 把 有 关 造 型 搬 计 某 段 内 存 空 s 间 。 
. 按 多 个 造型 表 设 置 规则 ， 正 确 存放 造型 表 。 
“ 修改 控制 动画 显示 机 器 语言 子 程序 有 关 指 针 和 参数 ， 
以 便 正 确 调用 造型 。 
一 、 造 型 搬家 
假设 欲 把 造型 表 设 置 在 $6000 开 始 的 地 址 中 , 并 要 求 把 
飞机 造型 和 汽车 造型 同时 存 贮 在 $ 6000 以 后 的 有 关 单 元 中 。 
已 知 原 飞机 造型 存 贮 在 $344 一 $ 374 中 ， 原 汽 车 造型 存 
贮 在 344 一 叫 3B 7 中 。 
先 调 进 飞 机 造型 GP 2A13。 ， 


03544- 01 00 0D4 0 
03549- 75 3S6 2E 2D 2D DOE 76 76 

0350- 76 3E OF 18 OF 18 OF 18 
9358- SF SF 37 36 36 SF 27 24 
0360- 24 SF SF F7 1E 1E. 27 0D 
Dzso8B- 18 2C 2o op 1 2C 28 2D 
037G- 2D 24 6C CC 00 00 


其 中 $344 一 书 34?7 是 存放 的 飞机 造型 的 索引 信息 ， 真 正 
的 图 形 信息 存放 在 $348 一 $374 中 , 故 先 应 搬家 至 $6006 开 
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始 的 存 贮 单元 ， 即 ， 。 

关 6006<348 。374M2 

逐 段 扫描 $6006 开 始 的 单元 ， 可 以 看 到 飞机 造型 的 图 形 
信息 已 存放 在 $6006 一 $6033 中 。 

然后 调 进 汽车 造型 GP 2Al4。 


3S44- 9 00 05 0 

0348- 00 41 38 20 25 2C 2D. 645 
sso- oOC OoC OocC 2D 2D 2D 2D 2D 
0xs58- 15 15 AD 2D 2D .15 2D 2D  !: 
SAD-: 3E. 2E 3SE 3SE BF 3S7 SF SC 
03568- 1C 24 1C SF 17 17 3S6 SF 
0370- SF: SF PP7 27 SF 芋 4. 41C 3F 
03578- 17 .SEE 2D 2 6 45 FG 
0380- SF 07 20 64 2D 04 20 05 
0368- 28 28 2D 2D 2B 35 35 35 
0390- SF SF SF 24 34 了 36 SF SF 
o398- SF 4A 49 92 3A 2D 4E 49 
0SAD- 49 2090: .64 2D B6 1E 7F 49 
GAS- 97 .<C < SC <C 2D <D 3C 
DSSBO- SF ,3F EF SF SF 27. 2D 90 


同 理 , $344 一 书 348 中 存放 的 是 汽车 造型 的 索引 信息 , 原 
图 象 信息 存放 在 趾 349 一 $ 3 吾 7 中 , 故 再 次 搬家 , 移 至 $$ 6034 
以 后 的 单元 中 即 

关 6034<349。 3B7Mv 

再 次 逐 段 扫描 从 $6034 开 始 的 单元 ， 发 现 汽车 造型 的 图 
形 信 息 已 存放 在 $6034 一 $60A 2 中 。 

至 此 ， 两 个 造型 已 依次 存放 完毕 ,搬家 ” 任务 完成 ， 且 
程序 GP 2A 18。 

二 设置 索引 
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按照 存放 造型 表 的 规定 ， 在 造型 图 形 信息 之 前 ， 应 设置 
索引 信息 ， 安 排 如 下 : 

$ 6000 一 02 天 造型 个 数 ,- 本 例 是 2 

$6001 一 00 :不 用 ， 按 规定 放 00 

$6002 一 06 :第 一 个 造型 首 地 址 低位 

离 索 引 表 表 头 的 偏 移 量 
$ 6003 一 00 ; 第 一 个 造型 首 地 址 高 位 
离 索引 表 表 头 的 偏 移 量 
$6004 一 34 。”， 第 二 个 造型 首 地 址 低位 
四 离 索 引 表 表 头 的 偏 移 量 
$6005 一 00 “， 第 二 个 造型 首 地 址 嵩 位 
离 索引 表 表 头 的 偏 移 量 

只 有 按 上 述 规则 安排 索引 表 ， 造 型 才能 被 调用 。 

应 该 特别 指出 的 是 ,- 所 有 偏 移 量 都 是 用 十 六 进 制 数 存放 
的 。 每 个 造型 数据 结束 以 00 为 标志 。 索 引 表 表 头 $ 6000 中 的 
值 ， 应 按 造 型 个 数 实际 值 安置 ， 否则 程序 无 法 执行 

至 此 ， 完整 的 造型 表 已 安排 就 绪 ， 且 程序 GP 2A 18。 

、 调 用 造型 

沿用 造型 并 使 造型 能 外 实现 动画 显示 的 机 器 语言 子 程序 。 
且 程 序 GP 2A 17。 

向 上 移动 的 机 器 语言 子 程序 仍 用 前 面 介 绍 的 程序 GP2 
Al2。 

程序 GP 2 A17 基 本 上 就 是 向 上 移动 的 机 器 语言 子 程序 
GP 2A12, 但 必须 修改 某 些 指针 和 参数 。 因 为 程序 GP 2A12 
适用 于 一 个 造型 ， 而 且 造 型 地 址 在 $0344 中 。 现 在 有 两 个 千 
型 ， 造 型 表 起 始 地 址 已 放 在 书 6000 开 始 的 单元 ， 故 作 以 下 改 
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人 


设置 造型 表 的 普 地 址 为 岂 6000 
指 二 个 造型 ， 放 02 指 第 二 个 造型 
不 旗 太 ,， 若 放 大 二 倍 应 为 022 
- 指 图 形 起 始 位 置 ， 这 里 已 改 为 80; 原 
程序 为 信人 和 

$0332: 80 ; 指 图 形 显示 位 置 ， 本 例 改 为 80 

这 样 ， 机 器 语言 地 程序 的 指针 和 参数 修改 完成; 现 给 出 
完整 的 程序 GP 2 Al17。、 

程序 GP 2 A17 清 单 。 


$0301: 00 

书 0305: 60 3 
书 032D : 01 
吊 0311: 901 
$0315: 80 :3 


口 瑟 口 门 一 有 号 ”站 口 


oem 


全 导 癌 一 
(人 人 一 


人 二 全 白 一 “ 


局 了 名 一 
03SOB-~ 
上 站 全 一 
避 忆 局 一 
3T12- 
3S14- 
口 316 一 


ODS18- 


局 3S1B 一 
吕 本 1 一 
避 荆 人 2 口 一 


0 
已 本 过 - 


0324- 


0326- 


- 癌 了 23- 


号 本 之 全 一 


站 瑟 人 诺 --- 
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[有 有 
间作 


全 六 


间 囊 操 吕 
生 巨 吕 

间 囊 白 吕 
襄 E 

囊 广 中 昌 
音 囊 人- 
机 FF 折 FO 


井上 O1 


串 世 7 
井 末 名 心 
囊 冲 品 
生意 汪 忆 人 
二 总 了 2C 
雪 各 司 

要 中) 全 
全 
囊 各 汪 吕 
贡 口 3 全 
囊 人 二 
非 村 呈 守 
事 F 7 .1 


- 昌 瑟 呈 工 一 
0D333- ARO 
0335= ”5 
旭 枉 玉 7 一 : 
0353A- 
总 本本 人 一 
O 〇 SS3E~ 
CTFS44 吕 -~ 局 癌 
0343 一 


二 D 关 
DY 
DA 
1 F4 
革 卫 后 


-LDY 


JSR 
RTS 


程序 GP2， A18 清 单 。 


力 世 癌 门 -- 间 a 已 


如 马 台 号 一 
丰 避 1- 
如 口 1 纪 - 


20 一 
丰 局 闪 纺 一 : 


60 ) 本 一 
尼 人 一 


-60302 


女 扎 4 已 一 
白 口 己 的 一 


在 口 与 如 一 
扣 和 CO 
忆 如 号 
各 人 4 7 人 一 
oO078-- 本 
多 


6DSBSB- 
”26990- 
6098- 
各 上 月 忆 一 


2E 


了 7 了 
SF SF 
交 记 
24 
2C 
丸 也 ， 
1 呈 2D 
3 人 


运行 方法 是 : ， 
涪 BLOADGP 2 扩 17Vv 


人 2D-…2 
OF “1 


1) 各 


所 人 


3 


下 


09 


0 与 本 - 
7 
本 呈 

ee 硬 


49 
49 


SC 
69 


总 记 
36 
op 
SF 《 
心 与 总 


全 | 
ee 


2D 了 


亲 东 日 忆 ， 


他乡 


LDX ， 


亲 叫 C ) 避 - 
1 囊 0G 


JSR ， 4 


_ 坦 囊 OO 
1 
生 1B 

向 F6SD 
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…]BLOADGP 2Al18v 
若 运行 飞机 动画 : 
]POKB813， 1 以 
JCALL768w 

若 运行 汽车 动画 ; 忆 
]POKE813，22 
CALL768 久 


“ 向 


第 五 节 ”动画 显示 的 键盘 操作 控制 ， 


在 进行 游戏 或 显示 动画 程序 时 , -操作 者 可 以 通过 一 定 的 
手段 ， 例如 用 键盘 、 游戏 杆 对 它们 实行 了 控制; 进行 了 诸如 上 、 
下 、 左 、 右 移动 加快. 减 慢 、 前 进 、 后 退 操作 + 旋转 、 滚 
动 、 联 动 、 变形 演示 ; 人 以 及 暂停 、 继续、 * 清 除 、 退出 处 理 。 

这 里 仅 对 键盘 操作 控制 ， 介 绍 几 个 实例 : 

一 、 对 画面 进行 暂停 、 继 续 、 退出 操作 控制 

程序 共 分 三 个 部 分 : 

.和 300 一 $82B  ， 用 机 器 语言 调用 造型 表 
. $32C 一 目 350 ， 实行 暂停 继续、 退出 控制 
， 甩 6000 一 下 6030 本 ;， 一 个 小 鸟 面 面 的 造型 表 

前 二 部 分 取 名 GP 2A 19， 存盘 备用 ,后 一 部 分 取 名 GP 2 
A 20 存 盘 备用 。 

运行 方法 很 简单 : 

] BLOADGP2A20，A 囊 6000 一 … 

] BLOADGE2A19， Ad$300v 

] CALL8122w 或 兴 32C Gy 

屏幕 上 显示 一 个 不 断 显 未 不 断 清除 的 小 鸟 画 面 。 按 S P- 
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AC 瑟 : 飞 窗 格 键 六 夯 面 暂停 不 再 闪 动 * 按 RETURN 。( 回 
车 键 )， 画面 于 续 运 动 ; 按 ESC (ESCAPE) 键 退出 。 
程序 GP3A19 清 单 。 


车 


人 总 癌 已 一 2 E2 F JSR 囊 户 3E 人 
了 SO 一 A9 Do LD 如 井 车 口 品 
3OS5- 85 ES STA 熙 记 唱 
DO3SO7-- 由 中 .如 LDO 井 种 恕 六 
ODSO93-  5 E3. -号 TA 囊 E23 
人 也 怠 背 …- 有 忆 口 取 1 X 硅 地 台 汉 
DOTR- -20 FO FC J 有 R 车 FF 
心 世 二 总 一 名 号 总 到 1 _D 如 条 囊 可 
站 了- 归 S E7 STA 村 E7 
3S14- 有 2 1 LDX 间 种 CDl 
本 1 大 一 2 3 FT7: JSR 蔬 F73SO 
03l129- A2 So LDX:， 井 革 BO 
.个 本 一 让 口 “CD LDY 韩 于 扬 品 
GOs1D- 9 2 EDA  。 间 嘻 3 
外 本 1TF 一 Se ll .F4 JSR 本 F411 
心 322- A6 1 LDX 机 1 
324-- 有 4 1 二 ER LRY 机 二 玉 … 
DSS26 一 A9_ OO LDA 井 叫 Ce 
DOs28- 20 5D F6 JSR ”机 F6SD 
站 了 2B 一 二 避 要 TS 
3S2C- AD obD CO， 忆 站 和 车 CDOo 
D3S2F- CS SB CMF 。 间 种 9 也 
心 卫 本 1 一 DO oO BNE 贡 提 33S4 
SS3S- ， 6 RTS 加 

OS3S4:- C9 8 CRMEPE .# 丰 BD 
DO336- 下 OOE BE 和 囊 0346 
口 术 3 全 一 C9 后 CMP  。 间 记 和 

意 人 3 有 一 DC 避 操 BNE 囊 口 346 
D353C- AR OP 人 D 有 “ 查 币 DOD 
33E- 8 10 6C9 STA -让 EDlO 
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03541- AD 30 209 ED 事 COBOD' : 


0344- 1410 FB BFL 车 D3S41 
bs46 二 AR9 oo 人 站 有 # 井 囊 OG 
全 妆 母 全 一 BD 1tD CO ST 扣 车 CCTOC 
马 .3 羡 马 一 全 昌 和 已 这 JSR 事 司 六 全 人 
如 注 如 全 人 LoC 3 林产 囊 呈 L 
程序 GP.2A 20 清 单 。 


6000- 01 00 04 00 75 6. 2E 2D 

6008- 2D OE 76 76 76 3SE OF 18 

outio- OF 18 OF 18 SF SF ES7 36 

bl18- 36. 356 3F 27 24 24 .3F 3 了 SF 

coc<0O~ ff7 14E 1] 世 27.0D.198 2C 20 

6028- D0D. 18 2C 28 2D 2D 24 6C 

6030=- 6C 00 

这 里 将 $$32C 一 中 350 程 序 段 作 一 解释 :首先 读 键盘 ， 判 
断 是 否 是 ESC， 键 (键盘 字符 的 ASCII 码 是 $9B )， 是 的 
退出 ， 不 是 的 和 _ RETURN 的 代码 $8D 比 较 ， 是 的 继续 
程序 运行 ， 不 是 的 再 和 SPACE 比较 〈 代 码 是 $AO )， 是 
的 暂停 ， 不 是 的 继续 。 其 中 由 C 000 单 元 为 键盘 数据 锁 存 器 
的 地 址 , 而 $C 010 单 元 则 是 清除 键盘 数据 锁 存 器 选 通信 号 开 
关 的 地 址 。 这 就 是 说 用 相应 命令 可 以 洛 成 将 键盘 数据 锁 存 器 
的 值 读 入 累加 器 ， 和 清除 键盘 选 通信 号 。 

- 二 、 对 不 同 动画 图 形 进行 选择 的 操作 控制 

例如 ， 有 两 个 动画 造型 放 在 $6000 一 $60A 2 单元 中 ， 其 
中 刷 6000 一 东 6005 为 这 两 个 动画 的 索引 信息 ， $6006 一 囊 6033 
放 的 是 飞机 造型 数据 ， 囊 6034 一 $60A 2 放 的 是 汽车 造型 ( 见 
本 章 第 四 节 ) 为 子 任意 选 笃 其 中 一 个 造型 进行 动态 显示 ,必须 
安排 适当 的 控制 键 。 
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调用 造型 并 显示 动画 的 机 器 语言 于 程序 族 在 $300 一 种 343 
中 。 站 

如 盘 提 作 和 向 放 在 下 3404 和 437D 中 。 

这 段 操作 要 求 除 按 吾 S C 键 退出 ; 按 : RETUR 键 继 
站 - 按 ， SPACGE 键 暂停 外 ， 还 要 求 加 两 个 控制 键 1 和 ?2。 按 
1 选择 飞机 动画 ， 按 2 选择 汽车 动画 。 

- 两 个 壮 型 的 造型 表 ， 存 在 $6000 一 囊 60A'2 中 ， 即 前 面 
介绍 过 的 程序 GP2A18。 

调用 造型 并 对 其 实现 控制 的 吉 序 ， 放 在 币 300 一 $37D 中 ， 
程序 名 为 GP2A21。 1 


ODSOO- 
必 308- 


310 一 - 
oOsl8- : 
3S20 
口 3528 一 入 
各局 一 . 


DSS 如 ~ 


-人 了 4Q : 


03548- 


癌 本 写 思 一 


口 35 日 - 
二 白 口 一 


ODSaSB， 
0370O~ 


9.20 


8 瑟 ES - 
F 双 从 全 


8S .E7 


9 20 


C3 DA 


44 63 


癸 舍 :人 O 


4 有 纪 间 品 
天 ， 首 品 


o1 26 


DO 17 
Oo Co 


DGS 4C. 


名 < 全 人 


0378- 00 上 了 4C 


键盘 操作 控制 对 应 的 汇编 语言 见 
程序 GP2A22 清 单 。 


9344- ”AD 00 Co 
03547- ” C9 958B 
0349- Do ol 


程序 G P2 A22。 


LDA 
CfMP 
BNE 


车 COODOO 
林 利 咏 民 
事 吕 SS4C 
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DOS4B~ ”60 R 良 TS - 


OOS4C- C9 Bi CMP  .# 审 Bi 
034E-  FO 16 BEQ  。 $G366 
D350-  C9 B2 CMP ，。 井 宙 日 2 
全 52 一 下 :1 BEGQ. : 划 OSG 人 . 
0354- Ce 8D CMP 井 贡 日 D 
口 356 一 FO -TB 了 EQ  。 襄 037S 
OOSSsS9- CC9 ADO 志 MP 。。 坦 本 人 O 
.0O35A- ”DO 17 BNE  。 $OS73S 
0O3SS5C-  A9..00 LDA 机 OO 


0SS5E- ”8D 10 5C0 STA 。 书 CO010 
0361- ”AD 600 Co LDA 再 CQq00 
03564- 10FB ” BFPL  $0361 
osa6- ApA9 0l LDA -#$O1 
0368- ”8D 2D 035 STA 。 书 032D 
036B- ac 73 03 JJMP  $0373 


OS6E-- A9 02 LDA 。 # 革 D2 一 
DO3S70- ”8D 2D:03:， 5STA  . 书 G3S2D 
0373S- ”AhA9 00 LBA 间 世 OO 


怠 卫 7 与 一 8BD -10 CC: STA 囊 CG1O 
0378- ”20 00 03 JSR 。 $0300 
0OS7B- ”4C 44 0 JMP 。 可 0D344 


-二 


键盘 操作 控制 的 思路 同 前 面 介绍 的 第 一 个 键盘 操作 控制 ， 
但 因 增加 了 对 两 个 造型 的 选择 控制 ， 故 需 增加 相应 的 程序 段 ， 
并 修改 必要 的 地 址 > 

在 由 32D 单 元 申 存放 的 值 ， 是 决定 显示 第 几 个 造型 的 ， 
放 01 选 中 第 一 个 造型 ， 放 02 选 中 第 二 个 造型 。 因 此 ,为 了 实 
现 控制 ， 键 盘 操作 控制 段 应 增加 对 那 一 个 造型 的 判断 。 键 盘 
上 “12 的 ASCII 码 是 召 1“22” 的 ASCII 码 是 B 2 。 

现在 对 和 $344 一 $37D 内 容 做 一 解释 。 

首先 读 键 盘 ， 判 断 是 否 是 忆 S C 键 ， 是 的 结束 ， 不 是 的 
判断 是 否 是 “:12% 是 的 转 电 366, 取 “012 放 在 $032D 中 , 再 
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转 $0373 清 键盘 ， 继 而 转 $ 300 开 始 的 动画 显示 程序 , 选中 第 
一 个 造型 飞机 。 若 不 是 “1”, 再 判断 是 不 是 “2”, 是 的 转 $ 036 
已 ， 取 “02' 交 在 $032D 中 , 再 清 键盘 ,: 继续 选中 第 二 个 汽车 
造型 。 不 是 4“2”, 再 判断 是 否 是 RETURN 键 .SPC 键 等 , 过 
程 同 前 分 析 。 

三 、 对 画面 进行 上 移 、 下 移 、 暂 停 、 结 束 操作 控制 

机 器 语言 子 程序 GP 2A 23 可 以 实现 对 画面 上 移 ( 按 U 键 ， 
对 应 的 AS CII 码 是 $DS )、. 下 移 ( 按 D 键 ,对 应 的 AS CII 
码 是 $C 4)、 暂 停 ( 按 SP ACE 键 ， 对 应 的 AS CII 码 是 
$AO ) 等 操作 的 。 其 对 应 的 汇编 语言 存 贮 在 $ 1046 一 $$1097 
单元 中 ， 原 理 读者 可 以 自行 阅读 。 


程序 GP 2A 23 清 单 。 

1046- ”AD 00 CO LDA 。 记 CODC 
1049- ”10 Cl1 BPL 让 100C 
1048B- 653 A0 CMP，。 间 贡 AO 
104D- 00 06 BNE 。 记 1057 
164F- ”2C-10"CO BIT  $CO10 
1052- ”AD 00 CO LDA 上 CO00. 
1055- 10 FB BPL 。 贡 1052 
1057- ”CC9 8D CMP # 机 8D 
1059-  FO 36 BEQ ”$1091 
105B- ”C9 D5 CMP  。 #$DS 
105D- ”DO 17 BNE 。 忆 1076 
1085F- 69 00 LDA 。 #$00 
1061- 8D 0D 10 STA _ 。” $1060D 
1064- ”A9 ES8 LDA 。 # 贡 ES 
1066-~- ” 抒 18 10 STA- $1018 
1069- hh9 01 LDA 。 #s$Ol 
106B- ”8D 24 10 STA 。” 书 1024 
106E- ” A9 CO LDA 。 井 $CO 
1070- ”8D 39-.10 STA， ”市 1039 
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4073= “4C 09: 0 -JIMPB 让 1099 
10764- C9.G4 CMRF 。 提 囊 E4- 
to78- DD :SF BNE 币 1009 
二 DO7A- ABR 和。 和 一 
-497C- ”8D. 00: 410 和 了 和 00D 
IO7F- 69 CA LDA 。 ## 和 本 CA 
1081- ”8D-18 10 STA  $1018- 
4084- 59. RE | 恩人 # 惠 BE 
Lo8o- | 肌 且 和 10 .STARA， :车 1O24.，: 
1085- 第 F 一 LDA 间 $FF 
LOBBr .所 三 39 ED :3STA，: 训 1039 
108E- ”4C. 09..19 .JIMR， 十 1009 
l691- 3zC 10 CO BIT  $Eol10 
10594-， .469 FF JIMF $FF69 
1097- ”60 .RES 


实例 ， 图 形 和 文字 的 上 下 滚动 灰 ; 

这 里 提供 一 个 图 形 和 文字 上 王 滚 动 显示 的 程序 ，, 其 效果 
像 电 影 开 始 时 演员 表 一 样 。 在 编制 软件 开始 时 ， 运 行 一 幅 精 
美的 图 象 ， 或 戎 显示 一 个 移动 式 的 中 文 菜单 ， 以 及 介绍 程序 
的 设计 思想 、 功能 和 操作 方法 等 ， 都 很 方便 和 实用 。 

本 程序 由 两 个 机 器 语言 子 程 庆 (UPDeWN 称 UPD ) 
及 一 个 BAS if 程序 CUPD -1) 组 训 。 建 立 和 实施 本 程序 
的 方法 如 下 ;， 人 

首先 ， 在 监 闻 状态 下 ,键入 300-3iD 一 段 存 贮 单元 的 机 
提请 放 玫 程序 ， 济 将 基 名 为 DO IN 存 直 和 

， 再 在 监控 状态 十 ， 键 入 1000 一 1097 一 一 段 存 贮 单元 
0 机 可 证 也 区 序 ， 职 各 为 UP 全 存 驮 用。 

最 后 ， 键入 文件 名 为 -UPD-I 的 BAS. 了 C 程序 ， 同样 存 
盘 备 用 。 

于 一 后 图 形 “例如 忆 EC 1 将 其 存在 高 分 辩 图 形 第 一 页 
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程序 UPDOWN 清单 。 


oO3SOO 一 A9 CO AO 
OoB- F4 AD CO 
oO3slto- 27 91 98 
0318- 03 CO BF 


程序 UPD 清单 。 


1000- AD 5o Co 
1008- CO AD 10 
1010- 0C 85 FE 
1018- CA BD 00 
1020- 0C 85 FD 
1028- 27 B1 FE 
1030- 27 Bl FC 
1038~ EO FF DO 
1040- FE C8 CO 
1048- CO 10 Cl 
1050- 10 CO_AD 
1058- 8D FO 36 
1060- 00 8D 0D 
1068- '10 A9 01 
1070- 8D 39 10 


1078- Do SF Ah9 


1080- CA 8D 18 
1088- 10 A9 FF 


1090- 19 2C 10 ， 
程序 UP D -清单 。 
10 D 韦 = CHR 圳 


局 品 
全 与 
EE 
30 


(4) 
20 PRINT D 中 "BLOADFIC 1 有 蔬 2DOO"” 


20 FRINT D 熙 "BLOADUPDOWN-” 
40 PRINT .D 上 于"BLOADUPD 


s50  POKE 6,0: POKE 7,12: PORKE 8,19 
2:， PGOKE 9， 


12 


白马 忆 UKE 了 2 本 避 。 本 富 
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70 CALL 768 
80 CALL 4096 


操作 方法 :_ 

只 要 直接 运行 UP D -1 程序 即 可 。 程 序 运行 后 可 以 看 到 
PIC 1 的 图 形 向 上 滚动 显示 。 而 在 翻滚 的 过 程 中 ， 按 卫 键 ， 
图 形 改 变 方 向 ， 向 下 滚动 显示 ， 按 U 键 ， 图 形 又 变 为 向 上 滚 
动 显示 ; 若 要 暂 定 ， 可 按 一 下 空格 键 ， 继续 进行 则 按 D 或 U 
键 ; 结束 运行 按 CTRL -RESET 后 返回 BASIC 。 

将 程序 UP D -1 稍 加 改动 ， 便 可 运行 第 一 页 和 第 二 页 的 
图 形 ， 见 程序 UP D -2。 运 行 方法 是 首先 RUN UPPD -2， 
按 CTRL -RESET 后 ,返回 BAS IC ,此 时 执行 RUN 90v 
(或 GOTO 90v ) ， 则 立即 显示 滚动 的 第 二 页 面 。 在 运行 过 
程 中 ，D 、U ,空格 键 和 CTRL -RESET 的 功能 同上 。 

程序 UPD -2 及 瞬间 显示 的 文字 图 形 : 


10 .D 市 .= CHR 惠 《4) 

20 ”PRINT D$"BLOADPIC 1,A$2000， 

25 “PRINT D$"BLDADAAAAAi; A 和 4000， 

30 ”PRINT D$"BLOADUPDOWN， 

40 “PRINT D$"BLDADUPD" 

50 “POKE 6,0: POKE 7,12: POKE 8,19 
2: POKE 9,12 

640 “POKE 230,32 

70 CALL 768 

80 “CALL 4096 

90 Y$ = "2000<4000.5FFFM N D8236" 

100 FOR I = 1 .TO LEN (Y$) : POKE 
5lt + IT，ASC ( MID 币 〈Y$,T,1)) 

+ 128: NEXT TI: .POKE 72,0 
110 CALL - 144 
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120 CALL 768 
130 CALL 409306 


全 屏幕 绽 图 软件 
Y 一 左上 训 一 左下 
B 一 石 下 H 一 右上 
I 一 癌 上 -一 向 下 
k 一 向 右 J 一 回去 
[一 旬 国 0 一 掠 区 
[一 清除 T 一 人 怕 留 
前 结 半 
一 滞 负 
按 空 格 链 运行 


第 六 他 造型 动画 设计 实例 


机 器 语言 程序 繁琐 而 不 直观 ， 使 用 它 来 绘图 需要 下 不 少 
功夫 。 但 它 有 高 级 语言 所 没有 的 许多 特点 ， 其 中 之 一 就 是 动 
画 设 计 。 由 于 机 器 语言 执行 速度 很 快 ， 因 而 动画 效果 较 好 。 

下 面 介 绍 一 个 简单 的 动画 设计 程序 。 运 行 这 个 程序 ， 屏 
幕 进入 高 分 辩 作 图 状态 ， 一 个 小 动物 从 屏幕 左 端 到 右 端 跳跃 
前 进 ， 同 时 在 其 尾部 画 出 运动 的 轨迹 。 不 断 重复 这 一 跳跃 过 
程 ， 运 动 轨迹 就 在 一 定 的 幅度 内 组 成 彩带 状 图 形 。 

小 动物 是 一 个 造型 图 ， 存 放 在 机 器 语言 程序 后 $ 8CF 
开始 的 地 址 中 ， 见 程序 GP 2 A 24。 

08CFE- 01 

038DO0- 00 04 00 .36 BE6 1E-D7 39 

08D8- 3F OF 18 OFEF 18 OFE 18 24 

083E0O- 2C 28 23 28 2D 15 0E DR 

08E8- DB DB 4B 49 89 92 09 有 A8 
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08F0O- FE3 3F 20 0D 18 25 08 18 
08F8- 08 D8 DB 9B 49 23 OF 18 
0900- OF 18 37 35 35 DEF DB 0B 
0908- 18 08 58 49 96 92 08 18 
0910- 18 08 D8 OBE OE OE 0E FE4 
0918- OF 18 OF 18 OFE 18 4D 49 
0920- DA B3 92 52 49 49 49 1A 
0928- 965 08 18 16 18 F8 DB DB 
0930- DB 08 18 08 18 08 18 48 
0938- 91 OA 18 3F 38 OF 18 3F 
0940- 3JF FE7 FE7 1BEB 96 12 08 .18， 
0948- 08 D8 70 D9 71 73 0EB 0B 
0950- OBE 2D 2D 2D 25 08 18 90 
0958- FEFD 3JF DE DB 52 49 49 49 
0960- F8 DB DB 08 18 08. 18 0E 
0968- 70 F6 0B 1EBE 4D 49 49 49 
0970- D9 OA 3F 2C 3C 3C 6F 21 
0978- 08 18 08 18 08 18 08 D8 
0980- DB DB DB DB 00 


其 中 $ 8CF 中 存放 造型 数目 ($01 个 ),$8D 1 $8D2 
为 造型 始 址 的 偏 移 量 〈$ 0004), 实际 该 造型 存放 在 $ 8D 3 一 
$ 984 的 内 存单 元 中 。 

程序 部 分 通过 对 这 一 造型 的 显示 、 清 除 和 移 位 来 达到 动 
画 的 效果 ， 见 程序 GP 2A 25。 


0801- ” A9 CF LDA 。 #SCF 
0803- ”85 BE8 STRA 。 S$SE8 
0805- ”ARA9 08 LDA 。 #S08 
0807- ”85 BE9 STA 。 SE9 
0809- ”20 D8 F3 JSR ”SF3D8 
080C- ”ARA2 03 LDX 者 S03 
080B- 20 F0 F6 JSR ”SF6F0 
0811- ”RAR9 01 LDA ” 间 SO1 
0813- 85 ET7 STAR 。 SET7 
0815-  A9 64 LDA 。 坦 S64 
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0817- 


0819-- 


081B- 
081D- 
081F- 
0821- 
0823- 
0826- 
0829- 
082C- 
082E- 


0830- 
0832 一 
0834- 


0835- 
0837 一 
909838-~ 


083K 天 -… 
083B-- 


083D- 


083PF-， 


0840- 
0842- 
0845> 
0847 一 
0849- 
084B 一 
084D- 


银 9 : 


20x20= 400.: 


085- 
0852-- 
0853 一 


0855 一 - 


0857- 
0859-~ 
085B 
085BR- 


C6- 


7 
:08 
D 08 


办 4 


< 心 8 
促 了 


08 
08 


”JSR 


SO01 


关 S14 
SO01 


考 $S0O1 
ji 人 02 
08C6- 


SO08C6 
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了 4 


08 


FE4 


R6 


08A9- 60 “KRPS 


08ARA- ARA5 01 LEDA SO1 
03AC- 18. CLC 

08AD-- 65 02 ADC SO02 
08RAE~- AAA 了 AX 
08B0- ” AO 00 LIBY ”并 S00 
08B2-  A5 00 DA  .$00 
08B4- 38 SEC 
088B85-- 瑟 9 14- SBC  . 间 S14 
08B7- 18 CC 
0888- ”65 02:- ADC So02 
08BA- :4C-9D 08 TMP 一 SS089D-， 
08BD- 人 AZ 91 . :EDX. 红 并 SO1 
08BF- 20 30 FE7 “JSR “ .S$8730 
08C2- .20 90 08 JSR- 8$0890- 
08C5- 60 RTS 

08C6- ” A2 01 LDX 间 $SO1 
08C8- 20 30 FT7 JSR ”SF730 
08CB- 20 AA 08 JISR .SO08AA 
08CE- 60 RS 


程序 GP 2 A 25 注 释 : 

$0801 一 中 0808;， 设置 造型 表 始 址 $ 08CF 。 

$0809 一 $0810; 启动 第 二 高 分 辩 作 图 页 ， 设 置 颜色 为 
白 〈3)。 

$0811 一 $0814;， 造型 放大 倍数 为 1 〈 不 放大 )。 

$0815 一 委 0820; 参量 初始 化 。 

$0821 一 下 082B; 显示 或 清除 造型 。 

$08 2 C 一 $0844; 画 出 尾部 轨迹 。 

$08 伍 一 $084F;， 改变 纵 坐 标 。 

$ 0850 一 $0860; 显示 或 清除 造型 。 

$0861 一 $0879; 画 出 尾部 轨迹 。 
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$087A 一 $0884;. 改变 纵 坐 标 。 

趾 0885 一 下 088F := 改变 横 坐 标 。 

$ 0890 一 $ 08A 9$ 显示 或 清 上 路 中 的 造型 。 .。 

$08AA 一 再 08BCy 显示 或 清除 下 落 中 的 造型 。 

首先 ， 将 造型 表 起 始 地 址 的 低 、 高 位 分 别 存 人 零 责 指针 
单元 $E8 (232)、 $ 下 全 k《233) 中 ， 启动 高 分 辩 作 图 第 二 页 
并 设置 颜色 为 白色 〈338 程序 中 的 20D8F3 指 令 即 相当 于 
HGR 2, 而 A 2 03 和 20F9 及 6 两 条 指令 相当 于 HCOLOR =3 

约定 造型 最 示 时 不 作 放 大 处 理 ， 即将 放大 倍数 : 工 存 入 堆 
页 单元 $E,7 。 从 $811 一 -$$820 因 参量 初 值 化 程序 ，- 它 设 定 
动画 的 起 始 位 置 为 横 坐 标 $$19(253、 纵 坐 标 囊 64(100), 吕 


弛 可 多 


清除 造型 
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幅度 起 始 值 为 $0o1(1 )。 


$821 开 始 正式 进入 动画 设计 ， 其 流程 大 致 见 图 2.70。 
即 分 上 跳 和 下 落 两 个 过 程 ， 上 跳 时 纵 坐 标 递增 ， 下 落 时 


纵 坐 标 递 增 。 其 中 最 主要 的 功能 就 是 造型 的 显示 〈 或 清除 )。 


造型 的 显示 通过 调用 几 个 系统 子 程序 来 实现 ， 

个 确定 显示 的 造型 序号 

这 一 序号 就 放 在 暂 存 器 X 中 ， 然 后 调用 $ 下 730 的 子 程 
中 : 

A2 0LLDX 并 $01 

20 30 F7 JSR $F 730 

@ 确定 显示 位 置 国 

调用 子 程序 前 先 将 纵 坐 标 存 入 累加 器 A-， 横 坐标 的 高 、 


低位 元 分 别 存 入 暂 存 器 Y 和 X 中 ， 然 后 转 $F 411 地 址 执行 。 


图 显示 造型 
显示 造型 的 子 程序 在 $F 601 和 $F 65D 中 (分别 相当 于 


DRAW 或 XDRAW 指 令 )， 调 用 前 先 将 旋转 和 值 存 入 累加 器 
A，$1A、 有 $ 1B 中 的 地 址 指针 存 入 暂 存 器 X 和 YY 中 ， 即 


A9 00)， LDA 失 $00 

A6 1IA  LDX $1A 

A4 1B DY$iB 

20 5DF6 JSR $E 65D 

以 上 三 个 步骤 合 起 来 相当 于 语句 : 

XDRAW A AT X Y 

其 中 A 为 造型 序号 ，X 和 Y 为 横 坐 标 和 纵 坐 标 。 

将 程序 GP 2A25 输 入 $801 开 始 的 内 存 中 ， 使 用 801 G 


或 CALL2049 指 令 即 可 执行 ， 
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第 十 一 章 多 页 联动 


使 文字 或 图 象 在 屏幕 上 移动 ， 是 编制 教学 辅助 软件 或 游 
戏 程序 常用 的 一 种 技巧 而 在 高 分 辨 图 形 显示 的 二 个 页 面 上 ， 
实现 两 页 、 三 页 以 至 更 多 页 图 形 或 文字 的 联动 显示 ， 将 使 画 
面 更 加 丰富 多 采 。 

本 理 主 要 介绍 二 页 、 三 页 图 象 的 联动 显示 技术 ， 至 于 四 
页 、 五 页 和 更 多 页 图 象 的 联动 显示 ,. 我 们 将 放 在 特殊 技巧 一 
章 中 介绍 。 


第 一 节 ”两 页 图 象 上 下 联动 显示 


我 们 曾 在 本 篇 第 六 章 移动 显示 中 ， 介 绍 了 单 页 图 象 的 移 
动 显 示 ， 实 际 上 两 页 图 象 的 联动 显示 ， 可 以 在 单 页 图 象 移动 
显示 程序 的 基础 上 ， 稍 作 一 些 改动 ， 即 可 实现 。 

程序 GP2B 01 为 两 页 图 象 向 上 移动 显示 的 机 器 语言 子 程 
序 ， 其 原理 见 图 2.71。 

程序 GP2B 01 实 际 上 是 将 GP2603、GP 2605 这 两 个 程序 
结合 起 来 编制 的 。 其 原理 说 明 如 下 : 

$8000 一 $801A 同 程序 GP 2605， 取 得 

地 址 。 
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42000 
= 于 2400 


3FDo9 
_ 4 4000 
y 400 
$5FED0 
b ) 搬移 一 行 


L_ 上 2000 
可 2400 


2000 
24(00 


3 8 
$3FD0 CE 4$3FDN 
出 出 
28 0 
45rpo 一 一 45FD。 
(c ) 搬移 两 全 (d) 两 页 搬 完 
2.71 
程序 GB 2B01 清 单 。 
8000- 689. oo0 LDA 。 # 囊 00 
8002-.， 85 1F STA 。 韦 1F 
8904- ” A2 00 LDX 并 $00 
SOoeo 一 BD 00 号 1 LA 种 日 1OOy 
昌 GODO93- 85 0o7 STA 利口 7 
800B- BD 00 82 LDA 机 B2OOX 
BOOE- ”85 06 STA 可 06 
8ol0ob 一 E INX 
旨 忆 1 工 一 . BD 99 8tl L DA 种 旨 1OD ，X 
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So014-. 


8016= 


8019-- 


怠 必 1 下 一 
口 1 如 一 
801F- 
BO21-- 
利己 二 3 一 
8024-- 
8025- 
SO027 一 
8029- 


802B-. 
SO2D-- 


802E- 
8030- 
8032- 
8034- 
8036-~ 
8035S- 
803A- 
80SC- 


803SE 一 


旺 已 41 一 
旨 O42 一 
BO44 一 
8046 一 
.如 口 49 一 
804B 一 
BO4D-~ 
BC4F 一 
BO0OS1- 
日 避 号 过 一 
日 心 己 4 一 
呈 O0S6 二 
号 口 己 7 一 
8059 一 
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母 革 


埋 BF 


囊 B0O6 
囊 口 日 
种 口 6 


可 09 


上 07 
贞 1F 
贡 B1OO，X 


# 革 2O 
囊 D9 
种 日 二 喇 名 ， 
口上 
并 定 27 
( 事 OB) ，Y 
( 品 D6)，Y 


夺 BO4D 
间 囊 局 〇 


(可 DB) ,Y 


303A 
SS 二 
各 口 如 台 一 
8BQ42 一 
Bo6 革 - 


日 06G9- 
号 心 和 号 一 
06D- 
BO6E-， 
如 已 如 F 一 
8072- 


8074- 
g076- 
8079- 
8D7B- 
8BG7E- 
ao7F- 


二 


各 内 各 于 一 
皇 bB6-- 
站 中 卓 9- 
日 自身 所 一 : 
如 OBSBF-- 
吕 0O932- 
BO95-- 
8C98-- 
8093A- 


$801B 一 $8033 


-AL 


OO 


AD 


-下 …… 


斩 (- 


BNE 


FS 


JSR 
_LDA 


提 相 < 日 
种 只 己 号 白 
囊 寺 六 

和 1 
井 生 1 
李 和 全 站 合生 


井 雪 它 司 


囊 马 如 
音 于 全 


囊 广 人 纺 诗 了 


囊 公 各 


种 征 20 ，X 
种 过 / 
串 各 工 已 全 


厘 案 已 避 

车 呈 如 GD 
事 亡 操 与 和 
囊 COS5O 
囊 全 人 7 
于 作品 本 之 
本 已 口 1 纪 
车 和 OOG 
事 已 CC 人 
种 各 妃 急 F 


同 子 程 序 GP .3603， 首 行 压 栈 , 其 


余 各 行 上 移 一 行 , 判断 移 完 否 ， 未 完 继 


四 续 移 9 
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$8034 一 书 804A 。 移 完 , 将 第 一 页 未 行 地 址 改 为 目的 
行 地 址 ， 并 取 第 二 页 被 移行 地 址 。 

$804B 一 书 8053 移动 一 行 。 

$8054 一 书 805D 堆栈 弹出 ， 见 图 2.71 〈b)。 

$805 刁 一 $8065 。 计数 器 加 1， 判 断 是 否 全 部 移 完 ， 
未 完 继续 移 见 图 2. 75 (C)y (d)。 

$8066 移 完 返 回 。 

$8067 一 $809A ， 演示 用 子 程序 ， 同 GP 2663。 

演示 子 程序 GT 2B01,， 可 用 程序 GP2B02。: 

TO 了 蔬 . CHR 事 《4 和) 

2O0 PRINT D 贡 "BLOAD PIC~1， A 机 2DO00" 

30 “PRINT D 蔬 "BLOAD PIC-2，A$4000" 

40 PRINT D$"BLBAD GP2BOt" 

50 .CALL S2871 

60 FORI = 1 TG 1000: NEXT 1 

70 TEXT :， HOME : END 


和 欲 使 两 页 图 形 向 下 移动 ， 可 将 程序 GB2B01 中 币 8001 单 
元 内 容 改 为 $ BF 书 8004 单 位 内 容 也 改 为 $ BF 书 8010 
单元 内 容 改 为 $CA，，$8010 单 元 内 容 改 为 书 BE， 书 8031 
单元 内 容 改 为 $00 $8063 单 元 内 容 改 为 $FF 即 可 ， 见 
程序 GP2B03。 原 理 不 再 重复 。 


第 二 节 ”三 页 图 象 上 下 联动 显示 
两 页 图 象 上 下 联动 显示 的 原理 搞 清楚 后 ， 要 实现 三 页 图 
象 上 下 联动 显示 也 就 很 容易 了 。 三 页 图 象 上 移 显示 原理 见 图 
2.72。 将 两 页 图 象 移动 显示 子 程序 改动 一 下 ， 在 两 页 移 完 后 
不 结束 而 继续 将 第 三 页 图 象 移 往 第 一 页 显示 ， 并 将 第 一 页 压 
栈 的 内 容 弹 出 至 第 三 页 ,循环 往复 直至 第 三 页 图 象 移 完 , 见 程 
422 


序 GP2B 045  “: 
0 ， 境 设 页 数 计 孝 器 ， 用 以 记录 图 形 
， 书 3 瑟 内 容 为 0 时 图 象 为 第 一 -页 ， 

为 图 旬 为 第 二 页， 为 2 图 和 为 
三 帝 

$8004 一 $8037 “- 局 子 程序 GP2B 91, 将 第 一 页 图 旬 
首 行 压 栈 ， 其 余 各 行 全 部 上 移 一 行 ， 并 
判断 移 完 否 。、 

程序 GP2B03 清 单 。 四 


8000- ”ARA9 BF -: LDA- ”井上 BF 
8002-， 85 1F . STA，。 囊 3F 
8004-， A2 BF LDX 间 二 BF 
8006--，BD Oo 且 1 LDA- 机 9100，X 
8009- 95 07..…，: STA- 上 吕 7 
BooB~- Bi 00-82 1LDA 一 革 晶 2DO，X- 
BO00E- ， 8S5 06. STA 6 
BOlO9- CR DEX 
8011- .BDID 00- .和 LDA， 和 100，x 
8014- 85 09 STA 8$99 
8016-  BD 00-82 LDA 和 丰 920D，X 
Bol9- 95 08.， STA- 机 08 
BolB-  EO BE -- - CPX 间 丰 BE 
BOl1D- .DO 08. ENE- 训 BO27 
SOlF- ph 27 .: LDY  。 间 囊 27 
8021- Bl 06:… LDA.、 ( 囊 D6) ,Y 
BO23- 48 PHA 

8024-  8 DEY 

802S- ”10 FA BPL 后 BO21 
8027- ”AQ 27 LLY 和 提 币 27 
8029- ”Bl 08 LDA ( 吉 DB8) ,Y 
BC2B- 91 06 STA 《种 D6) ,YY 
802D- 898 DEY 


{23 


丰 扣 


4 


oo 日 1 


丰 BOQB8: 
其 事 品 9- 
熙 BOOC 
囊 口 妃 
可 口 6 
串口 吕 


可 已 7 


种 1 
生得 1 OO 


井 囊 之 已 
车 避 9 
车 晶 2 车，X 


- 事 DB 


《06) YY 


4400 


《 事 DB》y YY 


间 事 二 唱 


_、” 囊 8c56 


中 天 F 


部 1F 
和 FF 


生生 品 Q4 
# 井 事 人 0 


种 蕊 G 
# 委 00 


事 F411 


向 2000 


丰 ? 
ai FDo 


37FD0 
(县 ,) 


一 | 答 栈 ] 一 一 -|[ 堆 
一 页 | | -第 一 页 ， 
上 2000 
C 00 四 | 淹 - 了 上 | 弹 
上 | 把 FD _-: 
上 $ - 
第 二 页 上 | snou 第 = 页 | 
40 抽 [ 2 一 
45FD0 $5FD 下 


ED 


(Cb ) 移 一 行 


2000 
24 00. 


2000 
2400] 
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BO073- AR 
8074- ”AS5 26 
BO076- 9D. Oo 
8B079- ”AS 27 
80O7B- ”9D 00 
SO7E- ES 
BO7F- ”ED CO 
8081- DO EA 
8083- AD 54 
8086- ”AD 50 
80895- ”AD .S7 
BoOBC- ”AD 与 2 
SoSF- AD 10 
8092- ”20 00 
8095- ”AD 00 
8098-~ 10 FS 
809A- ”60 
程序 GP2B04 清 单 
8oo00- ”A9 oo0 
8Do2- 85 :3E 
80o04- ”69 00 
8006-- 585 1F 
Boo8B-  A2 00 
8B00A8-  BD 6o 
SOoD-- 有 5 六 7 
SO0oF-- BRBDB oo 
80l2-- 8S 0O6 
如 14 一 下 强 

纺 怠 乌 一 BRD 避 口 
BDI18- 85 09 
SOD1 合 一 BD oo 
SolD- 85 08 
SOIF-  EoO ol 
Bo021- DO 08 
8023- ” AO 27 
802s5- Bi 06 
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8 二 


-如 1 


和 


82 


(机 OOG) 。Y 


和 外 已 们 了 一 
全 已 亿 纺 一 
号 已 人 宁 一 
号 已 忆 一 
和 世人 防 一 
如 妆 忆 太一 
妇 避 本 1 ~- 
健全 本 全 一 
各 扬子 咎 一 
号 口 也 如 ~ 
自 忆 3 妇 一 
全 扎 冯 有 一 
全 扣子 CC 一 
号 0.E> 
O40-- 


Bo 


8O0 


80 


82 


熙 日 局 之 局 
提 囊 之 7 


(于 DB) ,Y 
( 串 O6) ,Y 


咎 BOD2D 
井 利 BF 
贞 BOOA 
第 1E 

# 囊 DO 


可 日 D4 和 
井 囊 2O 


7 囊 日 口 己 全 


种 8O4 昌 
井 种 4 
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6 人- 
SG7O- 
嫩 台 了 圭一 
号 DZ7 3- 
妇 吕 7 二 一 
台 口 7 了 7 一 
名 人 7 祁 一 
号 已 7 一 


入 7D 一 - 


呈 OO7F 一 
各 局 与 夺 一 
各 口 日 本 一 
生 避 入 己 一 ， 
号 已 和 一 
续 忆 9 一 
BoBB- 


息 08D 一 ， 


BoOSF ~- 
是 恕 ?局 一 
号 GO91 一 
3o0934 一 
.如 心 9 与 一 
如 口 9 白 一 
838098-~ 
虽 O23B-~ 
BO9D 一 
号 OAO 一 


8OAL-: 


10: COb 
CO 全 外 
OO Co 
F 与 


《向 DB) ，Y 


井 各 2 强 
第 BOO6D 
事 1F 
于 1 FF 

提 囊 CD 
8DO08 
审 1E 
审 1E 

间 囊 口 


可 BO0B86 


可 6004 
# 机 20 
贡 EG 
# 囊 00 


品 F411 


囊 忆 各 本 
机 B200，X- 
向 27 


于 B100，X 


章 叫 CO 


训 BOBF 一 
第 COS4 


车 CO50 
囊 CO5 7 


CO52 


熙 CO1O 
熙 BOOO 
贡 CDOO 
中 BOR1 


$8038 一 下 804A 移 宽 后 ， 取 机] 下 单元 内容 查看 
, 是 图 象 第 几 页 , 以 决定 后 一 页 图 象 
的 地 址 ， 当 囊 1 下 为 0 时 ,高 位 地 址 
“ 训 机 20 政 第 二 -页 地 址 ， 当 囊 1 互 为 1 
“时 ,高 位 地 址 加 帅 40 取 第 三 页 地 址 。 
$804B 一 $8o7C .- . 同 子 程序 G P 2B.01， 完 成 第 二 页 
和 第 三 页 图 象 十 移 显示 。 
$807D 一 $8084 页 数 计数 器 加 1 用 以 显示 第 三 页 。 
$8055 全 部 移 完 返 回 。 
$8086 一 上 80BC 演示 用 。  ，. 
演示 子 程序 G P 2B 04; 可 用 程序 G P2B 05。 
10 D$ = “CHRs (4) 
2 PRINT 了 了 币 "BLOAD PIC 一 1 ,及 囊 二 OO 
30 ”PRINT D 韦 "BLOAD PIC-2,A 和 4000" 
35 PRINT D 蔬 "BLOGAD PIC- 了， 内 于 COOD 
40 PRINT. D$"BLDAD GP2BO4， 
50 “CALL .32905 


40 FOR 工 : = 1 TG 1000:- NE 对 I 
70 TEXT :HOME ， END 


要 将 三 页 图 象 向 下 移动 ， 同 GE 2B 01 改 动 为 GP 2B 03 ， 


Boomn- 63 DO LBDA 霸 事 所 癌 
BCO02- -85 1E STR 韦 1EE 
8004- 69 BF LDA # 囊 BF 
Boo6- 85 1F STA 可 1F 
BOoOe- A2 BF LDX # 井 韦 BF 
SOooA-  BD oo0 81 LDA 事 B1oG,X 
SocBP- .85 0O7 STA  D7 
SGCF 一 BD OO 82 LD 车 日 全 避 训 ，X 
SOl2- 85 06 STA 市 DG 
8014- CA DEX 
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日 了 5 一 


Bo1A- 


一 吕 虽 1DD 一 
39t 二 = 
昌 O21-- 


遇 O2 二 -全 


生 旭 祥生 一 


昌 O27 一 . 


8G28- 
后 四 鱼 一 
如 马 富 吕 一 


全局 习 有 一 ， 


人 各 忆 人 户 一 
寻 口 也 圭一 
生 吕 世人 一 
如 电池 4 一 
全 己 世 如 一 
人 口子 全 
名 O 忆 三 一 
生 局 CC 一 
呈 避 世 了 3E 一 
征 马 如 一 
如 口 43 一 
号 心 4 怠 -- 
号 4 昌 -- 
下 和 4 电 一 
804D~ 
旨 O4F 一 
日 怠 S 一 
和 旨 白 与 子 一 
昌 避 与 邱 一 
80S5S-- 
8O5S= 
8053- 
805D-- 
8060--. 
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8SD 5A， 
58 


全 咏 


DB * 
“人 


.95 
合生: 
， -也 也 
8 
G9 


日 己 
BD 
合 与 


DA 


事 则 荆 记 全 
村 已? 
事 号 忆 习 0 ， 
本 口 如 

间 囊 所 E。 
种 母 心 2 中 
厘 囊 呈 7 
7 


事 BD2S 


井 事 27F  -. 
《种 站 人 吕 ) 
($Q6) 


s8620 
摸 韦 口 避 


9 莽 


-并 


| 


| 
了 
和 


,SBDQA - 


囊 到 


人 


囊 8D40 
可 D 
”机 8O5A _ 


580 各- 


提 囊 年 悦 : 


中 广 


# 囊 4 
囊 O09 4 


在 8200， 


车 口 日 


贞 8DSAA 


串 号 1 


X 


如 Oo2 一 
对 DOC4-~ 
日 6 一 
如 OO 如 一 
80O69- 
人 各 OO 各 有 一 
GOODBD- 
8CO6E- 
85070- 
和 D71-- 
O73S- 
母 口 7 号 一 . 


8077--. 


8079- 
人 各 局 了 B 一 
07D-~ 


BO7ZF 一 


98i-- 
有 08 一 
8085S- 
8OBBOC 一 
8oge9- 
808B- 
808D- 
6OSBF 一 
80930> 
BO091 一 
日 094 一 
如 9935 一 
8096- 
B098-- 
809B-- 
台 避 9 了 一 
号 己 和 局 一 
旨 AI 一 
日 口 A3 一 
BOAS 一 


90 


4 让 4 


虽 2 


1 


CC 


间 利 过 7 


《种 DB) ,Y 
(车 D6) ，Y 


和 860064 
厘 囊 (人 


《( 囊 0 日 ) ,Y 


间 贡 28 
上 BO6D 
囊 1F 


审 1F 


"? 间 事 FF 


中 BO008 
向 1E 
中 1E 
音 香 〇 2 
贡生 086 


车 8004 
间 世 29 
要 EA 

# 韦 00 


$F411 


车 26 


事 B200，X 


事 忆 7 
囊 B100，。x 


提 和 CO 


囊 昌 OF 
村 COS4 
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80A8- ”AD 56 Co LDA 贡 COSo 

BOAB~ ”AD S7 CO LDA 下 CO57- 

BoAE- ”AD 52 CO LDA 囊 CO052 

BoB1- ”AD 160 GO LDA ”$CO10 

SGB4- 20 09 8B0 JSR 于 8000 

80B7- ”AD D0 Co LBA 事 CO000 

SDOBA- 193 pp5 BPL 80B1 

刍 CRC-- 如 辣 RTS” 

- 样 ， 只 要 将 图 象 从 末 行 开始 ， 即将 未 行 于 地 址 的 单元 内 容 先 
压 栈 ， 随 后 递减 倒 着 取 地 址 即 可 。 见 程序 GP2B 06。 

我 们 本 以 用 图 象 上 、 下 移动 显示 的 原理 ， 对 子 释 序 进行 
改进 ， 使 之 变化 出 更 多 的 形式 来 。 程序 GP2B 07 就 是 改进 后 
的 一 例 。 运 行 这 一 程序 ， 我 们 可 以 将 第 一 -页 图 稍 中 的 一 -部 分 
向 上 移动 显示 ;; 她 可 全 部 向 上 移动 显示 ， .还 可 按照 需要 来 确 
定 移动 显示 一 页 、 二 页 或 三 页 的 图 形 ， 这 样 就 灵 洗 多 他。 

这 个 程序 设置 了 3 介 单 元 给 用 户 ， 贡 01 单 元 用 来 存放 第 
人 ， 囊 02 单 元 用 来 存放 第 一 页 图 象 被 移 结 

， 囊 1E 单元 用 来 看 放 需 移动 的 图 象 页 数 并 如 1 。- 
“ 因 订 原理 说 明 如 下 
$8000 一 $8007 :初始 化 ， 设置 计数 器 $1 下 初 值 为 0 ， 
并 确定 图 象 显示 第 一 :页 
$8008 一 $800C ， 计算 被 移 启 始 行 地 址 。 
$800D 一 书 8014， “将 启 始 行 压 栈 。 


程序 GP2B07 清单 

SCOQG 一 人 9 避 曲 LDA 井 夺 CO 
8002- :8B5 1F ST 事 1F 
8004 一 69 202… LD 人 A 音 事 总 
8006- 5 EO SSTA 种 E 扣 
8bo8 一 AS 口 1 LD 全 囊 吕 工 
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800A- 
800D-~ 
80OF-- 
Bol1- 
8012- 
801S- 
8015- 


8017 一 


8O19 一 
是 心 下 一 
SO1D-- 
BoQtlF 一 
Bo21 一 
1 
得 O2 己 一 
8Q27- 
BO29 一 
8O2C-- 
BoO2fF 一 
日 马 芭 1 一 
8032- 
80S4 一 
BO3SCG 一 
日 9 一 
80SB 一 
8OSE 一 
Bo41 一 
旨 口 44 一 
如 口 47 一 
口 4 人 一 
oO4C 一 
号 恕 4 一 
虽 OSo 一 
各 口 己 4 一 
日 OOS 一 
QO5S8 一 
805SA- 


和 oO 
日 局 


名 


F4 
80 
80 
8O 
8 


上 全 


各 


JSR 
LDY 


LDA 


PH 
DEY 
BPL 
INC 
LBA 
CMFP 
BEG 
CMP 
BNE 
LDA 
STA 
LDA 
STA 
JSR 
JMF 
LDA 
CELC 
ADC 
STA 
JSR 
LDA 
JSR 
JSR 
JSR 


JMP 


JSR 
LDA 
JSR 
JSR 
工 NC 
LDA 
CMFP 
BENE 
DA 


丰 PF411 
间 囊 一 7 


(于 26) ,Y 


向 BOOF 
后 tF 
囊 1F 
向 1E 
后 号 OOD 
间 革 已 1 
车 日 口 F 
车 怠 1 
? 事 品 性 
串口 之 
囊 避 4 
车 BO47 
审 旨 品 1 
和 EC 


并 囊 之 电 
种 上 各 


车 避 SO 


林 革 DO 
车 广 呈 1 1 
囊 归口 白 汉 
可 全 殷 47 
车 怠 局 1 
车 如 口 2DD 
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BOSC- “895 63 ST 人 事 马 


BOSE- ”9 Co LDA 站 CO 
8060- 85 04 STA 囊 D4 
8062- 60 RTS 

Bo043- ”60 27 LDY  。 间 丰 27 
BO65- Bl 2 LDA 《〈 囊 2O) ，Y 
SO67- ”591 08. STA ( 囊 吕 日 ) ,Y 
8049- 88 DEY 

806A- 10-F9 . RPL ,中 8065 
BO6C- 60 RTS 
606D- ”AhAO 00 LDY  # 井 上 OOD， }， 
8O4AF-， 68 FL 全 

8070- ” 91 26 STA (种 26) ,YY 
8072- Ce8 INY 

8073- CO 28 CPY 。 井 币 2 号 
8075- DO FS8 ENE 车 BOGF 


8078- ”AD SS4 GO LDA 书 CO5S4 
BO7B- AD 50 CO LDA 事 COSO 
807E- ”AD 57 Co LDA ,车 COS7 
BoOs8li-- AD 52 CD LDA 囊 COS2 
8084- AD 10 CO LDA 各 CO1D 
吕 O 虽 7- 20 00 80 JSR 贡 号 OOO 
SCBSA- ”AD 00 CO LDA 下 COOO 


BD0SD-- 10 FS BRL 丰 8O84 
808F- 60 RTS 

8090- AS5 2 LDA 机 26 
8092- 85 0OB STA 可 口号 
日 0924 一 AS 2 LDA 贡 27 
8096-- 85S5 09 STA 。 $D9 
8098-- 60 RTS 


$8015 一 $801C 。 判断 全 部 图 象 移 完 否 ， 移 完 转 和 
806D， 未 移 完 往 下 搜 行 。 
$801D 一 $8020 ”判断 是 否 刚 处 理 过 首 行 图 形 , 是 ， 
434 


往 下 继续 执行 ， 否 , 则 跳 到 $ 书 802 下 开 
始 执行 。 

$8021 一 书 8028 ”将 $01、 书 02 单 元 内 容 送 往 书 03、 
中 04 单元， 用 币 03 、 李 04 单 元 参与 变 

化 ， 从 而 保存 $01、$$ 02 单 元 内 容 。 

$8029 一 书 802E 调子 程序 $ 8047 一 $8062， 将 一 
页 内 的 图 象 全 部 移 完 ， 并 转 书 8015 继 
续 。 

$802F 一 书 8038 将 图 象 显示 定 为 第 二 页 ， 或 第 三 
页 ， 并 将 目的 行 地 址 放 入 和 08、 书 09 
单元 中 。 

$8039 一 $803D 计算 下 一 页 (第 二 页 或 第 三 页 ) 首 
行 地 址 。 

书 803 下 一 下 8040 调子 程序 书 8063 一 806C , 移动 
一 行 图 象 。 

$8041 一 $8046 同 $8029 一 $802E。 

$8047 一 $8062 将 一 页 内 的 图 象 全 部 移 完 子 程序 。 


书 8047 一 $804 召 到 目的 行 地 址 放 入 书 08、$09 单 元 。 

$804A 一 $804 下 计算 被 移行 地 址 。. 

$804F 一 书 8051 ”调子 程序 书 8063 一 书 806C , 移动 
一 行 图 象 。 

书 8052 一 $8059  。 $03 单 元 内 容 加 1, 判断 是 否 移 完 图 
象 ， 未 完 转 回 $8047 继 续 移 。 
$805A 一 书 8061 ” 移 完 ,将 电 03 单 元 置 0, 下 04 单 元 置 
$C0， 为 下 一 页 图 象 移动 作 好 准备 。 
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下 8062 结束 返回 。 

$8063 一 $806C ”移动 一 行 子 程序 。 

$806D 一 $8077 “全 部 图 象 移 完 后 ， 将 压 栈 的 首 行 

弹出 ， 整 个 程序 结束 。 

$8078 一 $808F 演示 用 。 

$8090 一 书 8098。。” 取 目 的 行 地 址 送 入 囊 08， $09 单 元 
子 程序 。 ” 

用 程序 GP2B08 演 示 程 序 SP2RB07。 ， 


10 DB$ = -CHR 贡 《4) 

20 FRINT 了 蔬 "BLOAD PIC 一 1 人 蔬 2OODO” 
30 PRINT D 蔬 "BLOAD GP2B07" 

40  POKE 1 80: POKE 2,112: POKE 30 


之 
避 O CALL s2888 
60 FOR I = 1 TO 1000: NEXT 1 
IO TEXT : HOME : END 


执行 程序 GP2B08， 演 示 的 是 第 一 页 图 象 的 中 间 一 部 分 
($50 一 $ 70 行 ) 向 上 移动 显示 ， 如 果 要 演示 全 部 ， 则 只 要 将 
40 句 改 为 : 

”40 POKE 1，0: POKE 2，192: POKE30，4 
即 可 ， 当然 ， 三 页 图 象 也 必须 先 调 入 内 存 。 


第 三 节 多 页 图 象 左 移 联动 显示 


类 似 子 程序 GP2B07， 这 里 给 出 一 个 可 多 页 左 移 显示 ， 
或 全 幅 或 部 分 图 象 移动 的 子 程序 GP2B 09。, 其 移动 显示 原 
理 见 图 2.73 ,程序 编写 不 同 GP2610 显 示 效 果 也 不 如 GPE 2610 
这 个 程序 也 给 用 户 三 个 单元 ，$$01 单 元 用 来 存放 被 移 图 象 起 
始 行囊 02 单 元 用 来 存放 被 移 图 象 终止 行 , $1E 单元 用 来 存 
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7 


本 600n [一 


(4d ) 全 部 移 完 、 
:可 -图 2 .73 人 
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GP2B 09 清 单 。 


旭 忆 已 忆 一 
SGao2 一 
生 怠 敬一 
全 口 扎 所 -- 


全 略 扣 了 一- 


8009 - 
妃 疙 全 到 一 
如 COC 一 
各 己 已 D-- 
号 局 1 心 一 
如 妨 ] 子 -- 

8D14- 
OOD 1 各 一 : 
日 0195-- 
OO1E-- 


801D~ 


Bo01F- 


8021-. 


日 疙 23 一 


日 O23S 一 … 


旨 已 乙 了 7 一 


如 丰 全 且 一 - 


绍 马 且 一 
BO2C- 
8O2E-~ 


有 038 一 


母 如 七 一 
台所 闻 

8635- 
803S7- 
上 如 39- 
吕 避 本格-- 
全 与 必 中-- 
SOSF 一 
人 器 熙 公 一 
So44- 
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全 与 
全 纯 
后 咏 
如 二 


各 马 om 


dr 


台 己 
它 癌 
4 
之 人 
合 忆 
BT 


8 


忌 ( 


三 如 


从 与 


全 


F 
全 写 - 
8S 
会 
85 
AS 


1 全 
69 
旨 己 


如 


4 强 
256 
80 
BJ 人 
各 怠 
中 : 
合 品 
20 
记 已 


A0 : 


So JSR. 


弓 4 总 一 全 三 有一 
SO048- 甩 1 妆 扣 
9048- .68 

和 04B- “1 
804C- 69 061 
:DO4E- :CS5 DOD2 
“Bo0so- “Be eot 
Bo52 2 

号 O 屯 卫 一 4 

8054- DO AD- 

旨 避 号 7 一 Co 2 
80592- “ FD 0O8B 

日 OO 忆 一 及 二 之 和 

呈 9SPR-- 纺 吕 
BO5S5E~- ”51 26 

各 G6D- 
BO61--， DO F3 
8063- 60 
Boc64-- AD 54 Co9 
BO067- AD SO.C9 
806A- ”AD 57 Co 


06BD- AD- S2 BO: 
Bb70 二 :有 D 19 GE 


807s5- ”20 6060 80 


8076- AD 0O0 :Co 


807B-， 60 


放 需 移动 的 图 共 责 孝 : 


EBDA 


CEE 


ADC 


PHA 


INY 


JSR 
LA 


RTS 


囊 1 
( 囊 26，Y 


并 囊 人 革 


囊 吕 之 
事 日 呈 汉 


村 BOG3 


# 审 忆 日 

熙 BO6S 
(种 26) YY 
( 事 26)，Y 


车 BODS6 


.村 CGS54 


下 COS5O 
下 CDS57 


此 COS52 . 


COl10 
贡 8000， 


车 COO0 
s8070 


$a000 一 4002 。” 将 于 间 元 内 容 压 术 保 在 . 
可 8005 一 冰 80065 。 置 图 得 显示 第 一 页 


$800B 一 书 890 亚 : 


计数 单元 囊 1IF 置 0。 
计算 被 移 起 始 行 地 址 。 
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$8010 一 $8015 将 起 始 行 0 列 送 $$1D 单 元 暂 存 , 见 
图 2.73 〈b)。 

$8016 一 $8018 。 调 左 移 一 行 子 程序 左 移 一 行 ， 见 图 

- 2.73(b)。 | 

$8019 一 $8020 ”判断 需要 移动 的 图 象 在 设 定 的 页 数 

内 是 否 移 完 ， 移 完 转 $8044， 未 移 完 往 
-下 执行 。 “ 

$8021 一 书 8028 将 前 页 末 列 ( 书 27 列 她 址 送 $08、 
$ 09 单 元 ， 作 为 目的 行 地 址 。 

$8029 一 $802F ” 置 图 象 显示 第 二 、- 第 三 页 。 

$8030 一 书 8034 ”计算 下 一 页 被 移行 地 址 。 

$8035 一 书 803C 将 下 页 0 列 左 移送 往 前 页 $ 27 列 ， 
见 图 2.73 〈b)。 

$803D 一 $8041 。” 调 左 移 一 行 子 程序 左 移 一 行 。 

$8042 一 $8043 ” 转 $8019 再 作 判断 。 

$8044 一 $8049 。” 当 图 象 在 指定 页 数 内 移 完 后 ， 将 暂 
存在 $1D 单 元 的 内 容 送 往 未 列 ,形成 图 
象 绕 卷 ， 见 图 2.73 〈b)。 

$804A 一 $8051 “” 当 一 行 左 移 完 后 ， 从 栈 内 弹出 $01 
单元 内 容 并 加 1， 再 与 设 定 的 下 02 单 元 
内 容 比 较 ， 判 全 部 图 象 是 否 移 完 ， 如 
未 移 完 ， 则 转 $ 8053。 

$8052 全 部 移 完结 束 。 

$8053 一 $8055 ”将 计数 内 容 压 栈 , 转 $8003 再 移 , 见 
图 2.73 (c)，2.73(d)。 

$8056 一 $8063 ” 左 移 一 行 子 程序 。 


$8056 一 ,$805 和 A- - 先 判 一 行 是 否 移 完 , 移 完 转 8063 
返回 ， 未 移 完 往 干 执行 继续 移 。 

$805B 一 书 805E 左 移 一 列 。 

$8060 一 $8062 。” 列 +1， 转 书 8056 判 断 。 

$8063 返回 。 

$ 8064 一 807B 演示 用 。 

演示 程序 GP 2 了 09， 可 将 GP 2B 08 程 序 中 30 句 和 50 句 


30 PRINT Ds$， :<“BLOAD GPp3Bo9g， 
50。 CALL 32868 


其 余 不 变 即 可 。 


根据 上 面 的 分 析 ， 相信 读者 在 此 基础 上 完全 可 以 将 程序 
改 为 向 右 移动 显示 子 程序 这 里 就 不 再 多 说 了 。 


一 


441 


第 十 二 章 特殊 技巧 


中 华 学 习 机 (包括 紫金 I 及 APPLE I) 内 存 比较 小 ， 
这 在 运行 较 大 程序 特别 是 处 理 多 幅 图 形 时 ， 常常 感到 不 便 , 为 
了 充分 利用 有 限 的 内 存 空间 ， 常常 需要 采取 一 些 特殊 技巧 ， 
而 巧妙 地 利用 16K RAM 语 言 卡 和 图 象 区 缩 存 贮 技术 ， 可 以 
解决 这 方面 的 问题 。 本 章 就 向 读者 详细 介绍 16 开 R AM 语言 
卡 和 压缩 存 贮 技术 ， 并 提供 了 使 用 和 操作 实例 。 读 者 可 以 利 
用 本 章 提供 的 技巧 和 方法 ， 引用 到 您 的 软件 中 ， 相信 会 在 图 
形 处 理 辅助 设计 、 计算 机 辅助 教学 、 游戏 软件 开发 、 办 公 室 
自动 化 诸 方面 ， 得 到 竟 为 广泛 的 应 用 。 


第 一 节 16 玫 RRAM 卡 简介 
前 面 几 章 谈 到 的 图 象 显示 技巧 ,多 数 是 在 高 分 辩 率 第 一 、 
第 二 页 进行 的 ， 最 多 也 只 能 显示 三 页 图 象 ， 这 是 由 于 中 华 学 
习 机 的 内 存 限 制 所 造成 的 。 而 实际 土 ， 中 华 学 习 机 还 有 16 天 
RA M 语 言 卡 ， 由 于 地 址 和 ROM 重 复 , 一 般 情 况 下 都 空 着 未 
用 ， 因 此 我 们 可 以 将 其 用 起 来 ， 这 样 图 象 可 增 至 5 页 。 这 里 ， 


ER 


本 本 本 
向 D 000 
图 2.74 16K RAM 地 址 分 配 图 
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我 们 介绍 一 个 程序 ， 可 使 5 


页 图 象 上 移 绕 卷 。 在 介绍 程序 前 ， 


我 们 先 简单 介绍 一 下 如 何 使 用 中 华 学 习 机 空 着 的 16KRAM。 

中 华 学 习 机 16 天 人 AM 地 址 分 配 如 图 2.74， 由 于 它 的 地 
址 与 ROM 是 重复 的 ， 因 此 要 用 软 开 关切 换 的 办 法 来 选 通 它 ， 
在 16K RAM 中 ，1 井 4K 体 和 2 井 4K 体 地 址 也 是 重复 的 ， 也 


程序 GP2C01 清 单 。 


外 世人 局 一 的 了 

各 全 - D 呆 呈 芭 
3305- 8D SB 93 
公 二 总 全 ~ 马 吕 总 生 

导 六 局 六 -~ 号 站 站 妆 
各 汪 台 了- 人 人 
如 本 上 沁 -- 苹 居 全 本 扣子 
全 本 二 上 号 如 

生 汪 1 人 站 
人 本 2 旭 呈 有 各 沁 
全 全 马 ， 忆 各 

3 一 全 娘 “号 本 
人 本 妆 人 证 归 间 和 生 沁 
名 必 呈 汪 ， 上 民 全 汪 作 总 
委 汪 二 白 一 后 芭 全 本 人口 


_ 了 全 
STA 
局 


LDA 


STA 


间 妾 白 扣 
本 纺 卫 了 9 
囊 合 3 汪 所 全 
井 囊 操 名 
村 名 .总 
后 旨 汪 己 且 
事 母 汪 思 全 
间 昔 口 如 
4 | 


车 旨 汪 号 三 


提审 口 日 
目 BS39 


于 和 忆 己 得 


( 生 D6 ) ， 
,YY 


《 事 口 号 》 


宫 和 汪汪 
车 扎 了 
梨 避 人 9 


Y 
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号 了 人 引 汪 一 有 号 9 LDA 囊 避 9 


和 了 全 号 一 C3 号 局 CMR 、 埋 市 三品 
8347- ”DO EF BNE  。 世 8338 
83493-  AE SB Co LDX 事 CO8BB 
334CE-  AE SB CO LDX 于 COSB8B、 
呈 34F- 323 DO LDA 间 记 DD 
235l- 985 07 STA 。 $07 
3353- 69 50 LDA  。 间 书 SC 
3z55- 85 09 STA 书 D9 
23357- BlL 064 LD (有 06) YY 
333523- 1 08 STA ( 吊 DB) ，Y 
35B- …88 DEY / 
33SC- DO F9 BNE 熙 83S57 
333SE-  E6 0O7 INC 。 $D7 

3 如- E6 OO9 工 NC 串口 9 

和 2 5 9 LDA 记 O9 
号 本 折 生 -~ C9 6 CMPF  。 间 币 6 
B34kt- DO EF BNE 记 B357 
353 AD 8t， CO LDA 中 Co81l 
B36B- ee RTS 


要 用 软 开 关 来 分 别 选用 。 我 们 可 用 指令 LDX $(C 083 来 接 
通 1 并 .3 并 .4 井 3 个 4K 体 ,并 署 这 12 攻 空 闻 为 可 读 / 写 的 状态 。 
用 LDX $C08B 指令 来 接 通 2 并 、 3 并 、4 井 3 个 4 开 体 ， 并 
置 这 12K 空 间 为 可 读 / 写 状态 。 在 选 通 上 述 RAM 时， ROM 
将 不 起 作用 ， 因 而 在 程序 结束 时 还 要 用 指令 上 DA^ $C081 来 
切断 RAM， 恢复 ROM。: 至 于 其 它 软 开关 的 设置 ， 请 看 其 它 ， 
书籍 介绍 ， 这 里 就 不 详 谈 了 。 


第 二 节 16K RAM 卡 使 用 
用 上 述 3 个 指令 ， 我 们 就 可 以 将 图 象 资料 写 入 RAM 体 
并 可 读 出 了 。 程 序 GP 2C01 就 可 以 将 两 页 图 形 资 料 写 入 
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RAM 体 ， 也 可 从 RAM 体 中 读 出 。 
下 面 分 析 一 下 原理 
$8300 一 机 8312 初始 化 ， 轩 程序 为 读 出 状态 ， 转 中 
8323 开 始 执行 。 
$ 8313 一 $8322 初始 化 ， 置 程序 为 写 入 状态 。 
$8323 一 中 8328 。 读 两 次 $C 083， 选 通 1 并 .3 并 4# 
3 个 4 氏 体 ， 并 置 为 可 读 / 写 状态 。 
$8329 一 $8336 ”将 图 象 第 一 页 首 地 址 $2000 送 入 刷 
09、 李 08 单元， 将 1##4K 体 首 地 址 $D 
000 送 入 $ 07， 囊 06 单 元 。 
$8337 一 $833 正 ”开始 逐 列 传送 〈 读 或 写 ) 。 
$833F 一 $8348 高 八 位 地 址 加 1, 判 断 12K 是 否 全 部 
读 出 〈 或 写 入 ), 未 完 转 书 8038 继 续 。 
$8349 一 书 834 己 12 天 读 完 (或 写 完 再 选 通 2 并.3 并 、 
4 并 3 个 4K 体 ，. 并 置 为 读 / 写 状态 。 
$834F 一 $8356 ”将 2 并 4K 体 首 地 址 高 八 位 送 $ 07 单 
元 ， 将 第 2 页 后 4 天 地 址 高 八 位 送 $ 09 
单元 。 
8357 一 $835D 继续 逐 列 传送 〈 读 或 写 ) 。 
$835 匡 一 $8367 ”高 八 位 地 址 加 1, 判断 4 天 是 否 全 部 
， 读 出 〈 或 写 入 ), 未 完 转 $8357 继 续 。 
$8368 一 目 836A 4 开 读 完 〈 或 写 完 )， 则 切断 RAM 
体 ， 恢 复 ROM。 
$836B 结束 ， 返 回 。 
使 用 本 程序 ， 要 先 将 两 页 图 形 存放 于 第 一 、 第 二 页 中 ， 
然后 调用 该 程序 先 写 入 ， 后 读 出 。 要 演示 程序 GP 2 C01, 可 
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用 GE 2C02 程 序 。 


10. 阳 囊 二 -CHR 囊 《二 ) 

20  FRITNT. D 贡 "BEBLOAD PIC=-1 ， A 书 2000， 
3SO PRINT D 相 "BLOGAB 所 IE-2， 失事 丰 避 口 口 " 
4 FRINT 也 "DBLOAD GP2Col， 

50 “CALL 全 355S55 - 

Go HGR HGR2Y .: TEXT 

7D CALL. 本 与 本 折 


BO ， PFOKE 一 16297,0: PORKRE -16300 
,03 POKE  - 16302,0: POKE  - 
1 6. 了 OO4 ， 口 
390 FOR IT = 1{1 TO 2000: NEXT 1I 
1D0 PRPOKE .一 16299，0 


11D FOR I = 1 TO 20oo: NEXT 
120O TEXT HOME END 


第 三 节 ”五 页 图 象 化 卷 显 示 


搞 清 了 RAM 体 的 使 用 ， 我 们 再 介绍 五 页 图 象 上 移 绕 卷 
程序 。 程序 见 GP2C03， 其 原理 见 图 2.75。 

程序 GP2C03 原 理 说 明 如 下; 、 

$8000 一 书 8003 ”图 象 页 数 计 数 器 $1 正 置 0。 机 1E 内 
容 供 程序 判别 用 ， 为 '0. 时 ， 取 第 二 页 地 
址 ;为 二 时 ， 骤 第 三 页 地 址 ， 为 2. 时 取 
第 四 页 地 址 ; 为 3 时 , 取 第 五 页 地 址 。 

$8004 一 $8013 。 查 表 ， 取 移动 后 目的 行 地 址 ， 高 作 
位 放 入 韦 07 单 元 ; 低 八 位 放 入 书 06 单 
元 。 

8014 一 $801E 。 查 表 指 针 加 1 后 ， 取 得 被 移行 地 址 ，， 
守信 位 放 入 09 单元 猎 入 位 放 入 中 [单元 
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书 3FDTU 


机 4004 三 


$$5FD0L 


六 和 PogL ET 
机 国 


人 『 


$5FDe 
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|] 亡 5FD4 


囊 6000 国清 事 6000 
和 东 7FD0 钊 7FD0 


Y 


-中 DO000T 玫 一 


二 庆 


事 4000 


机 呈 玫 1 一 目 
本 全 ， 上 ， 
， 5 8 7 时 2 上 
a 7 ia ee 
了 四 罗 四 
了 风 .上 ; 
人 j 
1 ， sa > - 
愉 、 :人 。 全 一 
囊 4040 : 
站 
人 @ 
， | 二 @@ 
| 和 
. 嘲 : 一 - 
“ 了 E ， 。 em 
小 5FD 0 一 -下 
> 区 -了 
和 


机 6000- 


$EDIL 


$EFD0 B 共 1  $EFD0 _ 


叫 7FD0 


下 F 000 $$F 00 
$pibu 
4e ) 移 第 三 页 (f ) 三 页 移 完 


(名 ) 移 第 四 页 
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程序 GPZC 03 清香。 


Bouo-= 
8o6G2-: 
B004 一 
SOc6- 
呈 总 口 生 一 


BOoa- 


名 已 站 D 一 


54: 


各 号 信 


人 


人 


生 寺 “了 到 


辣 四 许 
= 


从 巡 


ED 
85 


站 站 
7 


879 
1 
OO 


6 


吕 1 


LDA 
区 


LTPA 


STR 
LDX， 
LDA、 


STA- 


排球 虽 全 
要 入 寻 他 


间 审 Of 


囊 } 世 。 
挂 宙 口 虽 : 

于 Bi1oe,X 
审 口 了 


8bcOF- 
对 马 寺 之 一 
各 局 1 4~ 
日 如 1 与 
旨 导 全 一 
号 COL 太 一 
BotD- 
各 已 1F 一 
602 1 一 
日 0O23 一 
人 各 口 乙己 一 
BO27- 
台所 之 全 一 
BO29- 
怠 切 也 总 一 
台 避 2DB 一 
各 品 写 FF 一 
号 人 光一 
他 心心 之 一 
年 记 也 和 一 
台 全 必 丰 一 
各 总 必 全 一 
各 局 必 有 一 
和 已 与 4 一 
BOQSE-~ 
嫂 马 入世 
委 蕊 太 二 一 
日 口 4 吉 一 
台 避 4 旨 一 
台 4 一 
8b4C 一 
和 94F 一 
吕 OS2 一 


8054 一 - 


台 吕 与 各 一 
从 已 马 邓 一 


SO 
呈 O 


80 


.Ce 
5 CO 


匠 日 200 , X 


第 O 名 


事 D9 
于 8200 .X 
事 O 提 


提 生 口 1 
秆 号 口 2 马 
井 囊 二 7 


攻 事 DG6) YY 


让 BO25 
音 和 全 7 


(向 0O8) ，Y 
(于 06) YY 


囊 昌 D2D 
间 囊 BF 


各 如 纪 台 襄 


贡 号 4 
间 囊 之 品 
生母 人 BF 
车 台 OOGF 
并 种 扎 1 
和 华 呈 怠 王 沁 
井 事 4 总 
和 中 BOSBF 
事 自 心 和 FF 


. 音 囊 D 二 


布 种 D64 
事 EO083 


于 GO83 


间 车 忆 O 〇 


人 名] 
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各 已 


局 


L 口 
CO 


ao 


旨 1l 


32 


机 BOSF 
车 BOeF 
下 LO8BE 
本 COSBB . 
# 熙 DO 
车 BOSF 
秆 已 日 

贡 O6 

让 DO9 

于 07 
$1F 
车 8B106 人 
种 1 人 
间 划 吕 二 
贡 D8D 
间 事 忆 必 
本 8D8D 


# 吉 AD 


村 SOBF 


( 夺 0B) ,Y 
( 囊 D6) ,YY 


熙 日 099 
# 事 OO 


( 砷 08) :Y 
提 过 日 


86AS- 290 FS BCLC 贡生 OA2 


SOAA- E6 1F INC 。 囊 1F 
SOAC- ”As5 1F LDA 。 囊 1F 
8oAE- ”C9 Co CMP  。 # 囊 CO 
80B0- ”Do OF BNE 。 $$80C1 
80B2- ” E6 1E INC 可 1E 
80B4- ” A5 1E LDA 。 囊 1E 
80B6- ”5c9 04 CMP: 。 # 贞 04 
80BB- ”DO0 04 BNE  。 $BOBE 
SO0BA- ”AhA0 81 Co LDA 。”$Co81 
BOBD--- 80 RTS 


BOBE- .4C 04 80 JMP 大 8004 
80Cl- 4C:-08 80 JMP “ “8B008 


860cC4- ”AhA9 20 LDA-。、 #$20 
80C6- 85 E6 STA 名 E6 
80C8- ” A2 00 LDX  。 # 囊 00 
BO0CA-- 6- TXA 

BOCB- 48 PHA 

BOCC- ” 20 11 F4- JSR  $F411 
BOCF- 68: PLA 

80DO- 。 AA. TAX 

80D1- ”AS5 26 LBA 。 $26 
80D3- 9D 00 82:  STA. 可 8200，X 
80D6-=- AS 27 LDA 。 争 27 
80D8- 595D 00 81i STA 。” 囊 BtiO0，X 
BODB-  E8 INX 

BO0DC- ”EO CO CPX # 可 CO 
SODE- ”DO0 EA BNE  。 $8OCA 


80E0O- ”AD 54 CO LDA ”$Co54 
PoES- ”AD 50 Co LDA ” 铅 E950 
.SOE6- AD 57 CO LDA ”$$Co57 
8OE9- ”AD 52 CO LDA 。 $CO52 
8oEC- ”AD 10 Co LDA 。” 书 CO10 
BOEF- ”20 00 80.， JSR  .$8006 
8O0F2- ”AD 00 Co LDA  $CO09 
BoF5- ”10 FS BPL  。 再 BOEC 
8O0F7- 60 _RTS 
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$801『 一 $802A -判断 是 否 为 首 行 ; 如 是 则 将 首 行 逐 
列 压 入 堆栈 ， 如 图 2. 45( b), 如 不 是 则 跳 

过 此 段 转 和 802B 往 下 执行。 网 

书 802B 一 一 书 8033 , 欧 一 行 逐 列 向 上 移动 。 

叫 8034 一 $8037 二 -判断 整 幅 画面 是 符 全 部 上 移 了 荆 行 ， 
机 未 移 完 则 转 至 下 800 人 继续 移 。- - 
$8038 一 $803D 移 完 后 。 取 求 3 芒 章 元 内 容 , 查看 是 

间 为 9, 不 为 0 转 804 再 查 
为 0， 则 将 划 甩 20 透 入 $808F; 1 以 便 
多 页 地 址 ， 同时 转 书 806 下 执行 , 见 
和 图 2 45(b)。 2 
种 8046 一 $8049 “再 查 $1E 是否 海 林 帅 0 未 是 转 
衬 和 和 62 再 查 ， 本 
$804A 一 书 8051 二 为 1， 则 将 并 囊 40 送 入 下 808F， 以 便 
取 第 三 页 地 址 ， 同时 转 $$806PF 执行 ， 
见 图 2， 75(e9t 
$8052 一 书 8055 条 查 $1 了 是 蔡 为 晨 惠 02，， -不 是 转 
8064 再 查 。 
$8056 一 书 863 为 2, 则 选 通 迟 AM1 井 、 3 拖 :4 入 3 个 
4K 体 ， 置 为 读 / 写 状态 ， 并 将 井下 B0 送 
入 $808E， 以 便 下 第 四 页 地 址 ， 伺 时 转 
$806F 执 行 ,; 见 图 2.75(g)。 
中 8064 一 下 806 开 为 3, 则 选 通 RAM 2 并 3 提 : 4 林 3 个 
4K 体 ， 置 为 读 / 写 状态 ， 并 将 井 $D0 送 
入 $808F， 以 便 取 第 五 页 地 址 ， 见 图 
2.75(h)。 


$803 瑟 一 车 8045 


$806 下 一 中 8076 将 上 页 未 行 地 址 作为 目的 行 地 址 。 

$ 8077 一 遇 867B: 取 高 八 位 地 竹 。 

书 807 C 一 $8081 。- 判 忆 LE. 是否 为 并 $ 03 ， 不 为 3 转 

$808D。 
$.8082 一 : 和 8085 : - 判 高 八 位 地 址 是 否 求 于 30， 是 ， 
和 30 了。 

$8086 一 和 808C “不 是 ， 财 将 高 八 位 地 址 压 校 保存， 
将 并 $A0 送 下 808 Fy 以 便 取 第 重 页 2 间 
4 民 体 地 址 ; 然后 弹出 高 八 位 地 址 。 

$808 D 一 $8096 根据 IE 内 容 分 别 取 后 一 页 地 址 
和 送 $ 09 庆 事 08 单元 。 

$8097 一 809 寂 传送 一 行 , 见 图 2. 75 tbj， (es (g)， 
《ba 

贡 86A0 一 80.A9， 扒 栈 弹出 一 行 ， 兄 图 2 75#fbh)， 
(6 人 人) (的 

二 80A0 一 书生 B1 判断 第 二 5 第 至 :第 四 -第 五 页 
:是 香 移 党 ; -未完 转 $ 8008 继 续 ， 见 图 

-2。 (> (六 汪 欠 说 人 入 
中 80B 2 一 下台 全 9 二 5 移 完 ,: 再 判 是 存 公 都 移 完 y :未 完 ， 
拉 8004 继续 移 。 
和 80 B 人 一 $ SBG 一 ”全 部 移 完 ， 切 断 RAM 体 ， 恢 
复 了 ROOM 

4 80BD 结束 ， 返 回 。 

$80C4 一 $80DF 计算 各 行 首 地 址 。 

$80E0 一 $80F7 “和 演 承 用 。 

用 程序 GP 2C04 演示 程序 GP2C03。 
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10 D 币 = CHR 蔬 (4) 

20 “PRINT D 甩 "BLOAD PIC-1 有 有 2000" 
30 PRINT D 蔬 "BLOAD PIC-2，A 囊 4000" 
40 PRINT D 划 "BLOAD GP2CO1" 

50 CALL 3S3555 | 

60 PRINT D 蔬 "BLDOAD PIC-3， Ag 有 2000" 
70 PRINT D 韦 "BLOAD PIC-4，A 委 4000" 
80 PRINT D 蔬 "BLOAD PIC- 本, 巴 6000" 
20 “PRINT D 蔬 "BLOAD GP2C03" 

100 ”CALL 3S2964 

il10 FOR I = 1 TO 2000: NEXT I 
120 TEXT : HQME : END 1 


第 四 节 ”压缩 存 贮 简介 


存 贮 在 $1000 一 $10FA 中 的 机 器 语言 程序 GP2C 05， 
能 够 完成 对 图 形 的 压缩 和 还 原 功 能 。 例 如 一 幅 具 有 34 个 扇 区 
占用 8 天 存 贮 空间 的 图 形 , 经 GP2C05 程 序 处 理 后 ， 再 存盘 
时 只 占用 不 到 10 个 马 区 3 K 左 右 的 存 贮 空间 。 同 时 ， 这 种 经 
过 压缩 存 贮 的 图 形 资料 ， 仍 用 GP 2C 05 程序 处 理 , 还 原 成 真 
正 的 原样 图 形 。 这 就 是 压缩 存 贮 技术 。 利 用 压缩 存 贮 技术 ， 
将 使 中 华 学 习 机 有 限 的 存 贮 空间 ， 得 到 更 加 充分 的 利用 ， 对 
处 理 多 幅 画 面 的 分 页 显 示 及 多 页 图 形 的 联动 显示 ， 提 供 有 力 
的 工具 。 

为 说 明 这 种 压缩 存 贮 和 还 原 显 示 图 形 的 功能 ， 下 面 详细 
介绍 操作 步骤 。 

1， 图 形 压 缩 

。BLOAD GP2C05 vv 

“。BLOAD C1,A$2000vy 

.CALL -151/ 
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。 关 0:00 60x 

。 关 上 6:20、/ 

。 关 1000G 

。 关 0.1 

“0000 一 5 瑟 ”67 

“BSAVE TC1,A$6000，L$75Fvw 

其 中 ， .GP 2C05 是 压缩 还 原 程 序 ， 它 是 以 BSAVE 
GP2C05A$1000，L$FB 存 于 磁盘 中 , 供 实用 时 调用 的 。 

C1 是 被 处 理 的 图 形 ， 原 来 占用 34 扇 区 8 开 存 贮 空间 ， 在 
处 理 时 〈 这 里 是 指 压缩 ) 先 调 入 下 2000 到 $3FFF 的 第 一 
页 ， 


进入 监控 后 ， 在 $ 00 一 书 01 单元 键入 00 ”60 是 指 将 要 压 
缩 的 图 形 压 缩 后 存放 在 $ 6000 开始 的 单元 中 。 
在 $ 下 6 单元 中 键入 20， 是 指 被 处 理 的 图 形 , 在 处 理 前 存 
放 在 $ 2000 中 。 
洲 1000Gw ， 就 是 对 C1 图 形 进行 压缩 处 理 , 而 处 理 后 的 
压缩 图 形 存放 在 $ 6000 开 始 的 单元 中 。 
检查 监控 状态 下 书 00 和 下 01 单元 ， 显 示 出 0000 一 5EE67， 
则 表示 压缩 后 的 图 形 其 长 度 为 $$675 正 一 书 6000= 下 75E 。 
所 以 ， 重 新 存 贮 压缩 处 理 后 的 图 形 ， 应 重新 命名 ， 例 如 
本 例 取 TC1, 并 将 它 以 BS AV 开 TCI1,A$6000,L$75 下 
存 于 盘 中 ， 表 明 压 缩 后 的 资料 存放 在 $ 6000 开 始 的 单元 中 ， 
其 长 度 是 书 75 正 〈 用 L$ 书 75F 是 防止 委 “ 尾 巴 2 。 
2， 还 原 显 示 
“。BLOAD TC1, 
。CALL 一 151V 
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。 关 0:00 60U 

。 关 下 6:20 以 

。 关 1003 GY 

“RUN GP2C06V 

其 中 BLOAD TC1Y 是 调 压缩 存 贮 的 图 形 资料 进 
内 存 ，$$ 00 单元 、$ 01 单元 、 下 E6 单元 键入 的 值 同 图 形 压 
缩 中 的 值 ， 而 1003 G v 则 是 执行 还 原 图 形 的 功能 ， 最 后 ， 在 
BASTC 状态 下 ， 运 行 第 一 一 页 图 形 的 显示 程序 GP2C06， 即 
可 看 到 还 原 好 的 图 象 。 

压缩 还 原 程序 GP 2C 05 清 单 。 


OOGOmm- 4C 7F to AS EO 09 04 85 
100B- 06.62 01 86-04 AO0 06 84 
1010-~ 0O2 84 905 84 608 Bl Oo Do 
1018- 18 E6O.00 D0 02 ES 0Ot Bl 
TO20- 00 昌 5 .08-E6 DO DO 602 E6 
obBe- QQl Bl oo 85 07 AS5 OO7 CO 
1030- 08 A4 02 3931 05 EB ES EO 
1038- BF 29290 t2 ECG-O2 有 4.D2 Co 
1040- 28 930 DB LC6 04 3 15 AD 
1048- 00 84 02 Ah 04 20 5D 10 
1050- .6A4 D9 DO D9 E6-DO DD BD 
1058- E4 01 DO B9 60 8A 29 CO 
1060-- Bo5 05 4 4 0D5 D5 85 05 
1068- BA B5 De DA OA DA 26 06 
1 70 有 2 UO DR CGO 3 有司 避 如 
1078- 29 1F 05 ECG 85 06 60 AO 
DB0- ce1 .94 94.84 03:98 84 D2: 
1088- AS E6 09 04 85 oo 8S4 D5 
可 一 Ri SS DPD DODD2 OO9 中 DR2 1 
1098- .86 08 85 07 A4 Da 有 AS 
10OA0O-- EB ES ED RBF 230 DOF [CS CD 
10A8B- 2 930 006 CC 04 30 1B 各 
1oOBDO- OO 84 0D02 AN D4 旨 扣 品 3 2 
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1088- 5D 10 Bl1 9695 DO0 02 093 80 
ooco- G5 07 DD 66 E6 08 DO D4 
IOC8- Co ec8 48 680 60 86 DB FO 
10Do- DE EC D4 BO OGA 9G507 20 
10D8- F2 10 CA DO FA FO DOD 2938 
10E0O- 20 F2 10 8A 20 F2 10 A5 
10E8- 607 20 F2 10.68 24 04 10 
1oFo0O- AS DO 9 DO FEO OOD DO O2 
1oOFB 一 EO DOl Oo 


显示 程序 GP 2 C 06 清单 。 

190 PKEE 和 SG4 

20  POKE  - 16297,0 

3 POKE =- 16302，0 ” 


30 POKE 一 1630D40 

so0 END 

如 果 要 看 一 下 压缩 图 形 是 什么 样子 ; 可 在 .] BLOAD 
TC1 之 前 执行 HGR 命令 ， 然 后 在 监控 状态 下 键入 2000< 
6000.7 下 下 女 M v， 再 运行 显示 程序 GP2 C 06 即 可 。 

对 于 连续 存 贮 多 页 压缩 图 形 资料 ， 原则 上 按照 上 述 图 形 
压缩 的 步骤 , 依次 处 理 , 但 要 注意 重新 存 贮 的 地 址 不 能 重叠， 
应 严格 分 开 。 同 理 ， 还 原 多 页 压缩 图 形 资料 ， 也 应 注意 各 个 
被 压缩 的 图 形 重新 存放 的 地 址 ， 否 则 还 原 有 误 。 : 


- 第 一 节 压缩 存 贮 实 例 


程序 P 30-1 可 以 完成 5 幅 画 面 的 联动 显示 :其 中 CC1 中 
存 了 两 幅 夯 面 ， CC2 中 存 了 3 幅 画面 。 例 如 有 两 个 图 型 C 1， 
C 2, 它们 是 两 恒 不 同 画 面 的 图 形 资料 ， 按 下 述 步 又 将 它们 重 
存在 一 个 程序 CC1 中 : 

.BLOAD C1,A$2000v 
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“BLOAD C2, Ad$4000y 

“BSAVE CC1,A$2000，L$5FFFv 

同 理 ， 另 外 3 幅 画 面 C3,C4,C5, 也 可 以 存在 同一 个 程 
序 CC2 中 ， 即 : 

“。BLOAD C3,A$2000 

“BLOAD C4,A$4000V 

“BLOAD C5,A$6000y 

“BSAVE CC2,A$2000，L$7FFEFVw， 

程序 R A M1, 其 功能 是 将 调 进 内 存 中 的 CC1 图 形 资料 ， 
转 存在 语言 卡 ( 即 16K RAM CARD) 中 ， 但 必须 在 
BLOAD CC1, A$2000 夫 及 BLOAD RAM1, A$8300y 
后 ， 执 行 CALEL 33555 。 

程序 P30， 能 完成 5 幅 画面 的 联动 显示 ， 这 也 要 求 在 
BLOAD CC2,A$2000v 及 BLOAD,P30，A 和 8000vw 
后 ， 执 行 CALL32964。 

下 面 给 出 3 个 程序 清单 。 

程序 F 30-1 (BASIC 语言 ，10 一 80 句 ): 


10 D 蔬 = CHR 和 车 (4) 

20 PRINT 了 蔬 "BLOADBGEC1T ,及 书 2o00" 
30 PRINT D 蔬 "BLOADRAM1 , A 书 83OO" 
40， CALL 33555 

50” PRINT D 币 "BLOADCC2 ,As$2060" 
《40 :PRINT D 车 "BLOADFSO 六 蔬 8OOO" 
70 CALL 3S2964 

8S0 TEXT : HOME : END 


程序 RA M1 (机 替 语 言 ， 叫 8300 一 $ 836B ): 
160 


二 
日 SB-- 
利 池 1 一 
如 1 8 一 


日 32O 一 . 


8S28- 
8B3SS0- 
8S3S8- 
8340-- 
8S348-- 
8350- 
8558- 
836G- 
8S68- 


Bo058-- 
日 O6OD- 
如 吃 扣 旨 一 
中 心 7 一 
8078- 
SOSO- 
SOCO8BSBR-- 
台 避 9 局 一 


BO098-- 人 
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BoOAO- .90 Do-68.91.08 CB Co 28 
SOAS-. 90 FB E6 TF AS5 IEC93 CO 
SOBO-- DO OF E6 TEAS TEAC9 0O4 
SO0OB8- DO 04 AD.BL CQ _ oo-4C DO4 
BOCoO- So 4C 0880 3929 站 5 EGG 
Bec8- AhA2.00 .86 .46 20 11 生生 o 呈 
SO0D8- AAA 26.39D,00.92.65 27 
80D8- 95D 060 81 -EB EO CO-DO EA 
SOEO- AD-54 CQ AD 59 .CO AD 57 
8DES~ CrAD-5355CO2ARD1D C 才 20 
SoFo- 99 :89 -ADR= -站 合 . -CQsdRasFS， 6 


5 幅 画 面 的 联动 显示 ， 操 济源 千 分 简单 ， 时 RUN 
P 30-1y 即 可 。 但 应 注意 CC1,:CC2;:RA MI P30 4 个 程 
序 都 应 存 于 同一 盘 片 中 。 
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随 着 微型 计算 机 的 广泛 应用 和 发 展 ， 微 电脑 绘图 已 逐步 
成 为 涉及 无 线 电 通讯 、 机 械 、 建 筑 、 教 育 等 多 种 行业 的 一 种 
重要 设计 技术 。 作 为 一 种 设计 手段 ， 它 使 各 领域 的 研究 者 们 
能 够 将 大 脑 中 虚构 的 模型 准确 地 反映 出 来 ， 并 通过 对 这 种 实 
体 模 型 的 不 断 改进 设计 出 更 为 完美 的 装置 。 

但 是 ， 在 许多 程序 设计 人 员 看 来 ， 绘 图 似乎 比 计算 机 的 
其 它 功能 更 难 更 高 深 一 些 ， 因 而 应 用 并 不 广泛 。 尤 其 是 除了 
BASIC、FORTRAN 等 高 级 语言 之 外 ， 而 触及 到 机 器 语 
言 或 汇编 语言 的 情况 更 是 如 此 。 实 际 上 ，APPLE II 是 一 
种 比较 好 的 绘图 工具 ， 而 6502 机 器 语言 无 论 在 图 形 效果 还 是 
在 绘图 速度 上 都 比 高 级 语言 强 得 多 。 比 如 ， 使 用 机 器 语言 可 
以 设计 出 一 个 比较 完美 的 游戏 程序 ， 高 级 语言 就 很 困难 。 

本 篇 的 内 容 就 是 介绍 6502 机 器 语言 在 绘图 技术 中 的 应 用 。 
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第 一 章 ，” 机 此 语言 绘图 


- 第 一 市 -人 APPL 也 的 图 形 空 癌 


APPLE [的 屏幕 显示 采用 记忆 体 映 象 输出 的 方式 ， 
也 即 其 屏幕 显示 是 通过 对 随机 存 取 存 贮 器 特定 区 域 的 扫描 ， 
将 存 贮 器 中 的 内 容 转换 成 象 素 而 实现 的 。 图 形 方式 也 一 样 ， 
当 这 些 象 素 按 照 指 定位 置 排列 在 屏幕 上 时 就 构成 了 图 形 。 因 
此 ， 它 在 RA M 之 中 有 硬性 设置 的 绘图 空间 ， 这 些 空间 随 给 
图 模式 和 页 面 的 不 同 而 不 同 。 在 APPLE 下 的 绘图 系统 中 
有 两 种 模式 ， 即 低 分 辨 和 高 分 辨 模式 ， 每 一 种 模式 分 别 有 两 
个 页 面 ， 其 在 RA M 中 的 空间 分 配 如 下 : 

第 一 低 分 辩 作 图 页 :$ 400 一 上 7 FF (1024 一 2047 )， 
1 上 ; 

第 二 低 分 辨 作 图 页 ， 书 800 一 $ BFF (2048 一 3071 )， 
1 上 下; 

第 一 高 分 辩 作 图 页 ，$ 2000 一 $3FFEF(8192 一 16383)， 
8 下; 

第 二 高 分 辨 作 图 页 :$4000 一 $5FFF(16384 一 24575 ) ， 
8 上 。 

低 分 辨 时 水 平 为 40 点 , 垂直 为 48 点 ;高 分 辨 时 水 平 为 280 
点 ， 垂 直 为 192 点 。 
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第 一 闻 ”绘图 功能 的 调用 


在 APPLES OFT 中 我 们 使 用 GR 、HGR 、PLOT、 
HPLO 了 等 语句 来 进行 图 形 绘画 ， 那么 在 机 器 语言 中 又 如 
何 实现 这 些 功 能 呢 ? 

在 存 贮 器 的 RO M 中 ， 有 实现 各 种 功能 的 子 程序 ， 其 中 
一 部 分 就 是 用 来 进行 绘图 的 。 它 包括 启动 作 图 页 面 、 设 置 颜 
色 、 画 点 画 线 等 等 。 当 设置 好 所 需要 的 参数 ， 调 用 相应 的 子 
程序 时 ， 就 能 完成 一 定 的 绘图 功能 。 ”。 

一 、 局 动作 图 页 面 轴 ? 

APPLESOFT 中 的 GR 、HGR 、HGR2 分 别 是 启 
动 低 分 辨 作 图 页 、 第 二 高 分 辩 作 图 页 和 第 二 高 分 辩 作 图 页 的 
语句 ， 在 机 器 语言 中 也 可 以 很 方便 地 实现 这 一 功能 。 其 指令 
姨 ， 本 

20 40 FB JSR$FB 40* :启动 低 分 辩 作 峡 页 

20 下 2 五 3 JSR$PF32， :启动 第 一 高 分 拓 作 图 页 

20 D8 F3 JSR$F3 D8:， 启 动 第 二 高 分 辨 作 图 页 。 

这 三 个 指令 没有 调用 参数 ， 执 行 时 相应 页 面 清 为 黑色 。 
当然 ， 在 机 器 语言 中 也 可 以 使 用 软体 开关 ,方法 与 APPL- 
ES OFT 类 似 ， 见 表 3.1 

各 用 下 列 指令 就 可 启动 第 二 高 分 辨 作 图 页 而 不 清除 原画 
面 : 

8D 50 CO STA$C050 设 定 图 形状 态 ; 

8D 52 C0 STA$C052 设 定 全 屏幕 方式 ; 

8D 55 C0 STA$C055 设 定 第 二 页 面 ; 

83D 57 C0 STA 和 4C057 设 定 高 分 辨 模式 。 
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有 机 器 语 下 言 指 令 
图 形 状态 和 
文本 状态 
全 屏幕 方 式 
混合 方式 
“第 一 南面 
” 第 二 页 面 
” 低 分 辨 齐 
高 分 辩 率 ” 
了 在 记 条 上 可 上 
… 酒 点 是 屏幕 作 加 的 最 基本 操作 ， 根 据 作 图 模式 的 不 同 ， 
斌 以 在 机 兹 语言 中 实现 和 
“。 低 分 辩 率 画 志 - 

“ 低 分 辨 率 画 虑 的 子 程序 起 始 地 址 是 $F 800,， 点 的 颜色 代 
码 (下 00 一 刷 0F ) 存 于 下 30 单元 中 ， 纵 坐标 和 横 坐标 分 别 存 
于 累加 器 人 和 上 暂 存 器 站 中 。 

例 1 ; 见 程序 GP.3101。 


DG0 
8D 51.C0 
8D 52 C0 
8D 53 'C0 


STA Co50 
STA$ C051 
STA 机 Co52 
STA$Co53 
STA 有 书 C054 
2S 丰 A 有 Co055 
S 下 A 下 C056 
STA$ 书 C057 


8D 双 ,C0 
8D 55 C0 
33D 56 CD 
8D.57;:C0 


Te 


GPsl01 


JSR 


二 起 30 夺 一- 己 
20 40 .FB 


-0303 


和 FFCSB 
多 FB401 


`03506 一 


0S308 一 :: 
9030A- 半 . 
030C=- 
030E 一 : 
0311 一 
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298 00: 
-220 00 PS 
neD 


LDA 
ST 全 


# 才 00 


SR: 
:RTG， 


检 委 F 
要 
HS00 


二 FB00 


程序 说 明 ， 

$0300， 清 除 当 前 屏幕 为 黑 。 

$0303: 启动 低 分 辩 作 图 页 。 

书 0306 一 书 0309， 颜 色 代 码 存 入 书 30 中 。 

$030A 一 书 030D; 设置 横 坐 标 为 $00, 纵 坐 标 为 $ 00。 

下 030E:， 调用 画 点 子 程序 。 

在 监控 状态 下 输入 

300G 

则 屏幕 左上 和 角 画 出 一 个 点 。 

.高 分 辨 率 画 点 

高 他 辩 率 画 点 的 子 程序 起 始 地 址 是 $ 下 457 ,点 的 纵 坐 标 
在 累加 器 人 中 , 横 坐 标 因 最 炎 为 279, 大 于 十 六 进 制 的 $F F ， 
所 以 分 高 位 和 低位 部 分 # .高 位 在 暂 存 器 Y 中 ， 和 低位 在 暂 存 器 
X 中 。 

另外 , 高 分 辩 率 画 点 的 颜色 设置 必须 通过 调用 书 F6F 0 
开始 的 子 程序 来 实现 ， 调 用 前 将 颜色 代码 ($00 一 $07 ) 存 入 
暂 存 器 中 。 

例 2，， 见 程序 GE 3102 。 


局 尸 本 1 D 乙 


300- 20 DB FS JSR 非 FD 
0 症 0 革 一 户 2 0 LDYx 并 看 口 瑟 
nsSUS- .20 F0O FF 名 全 民 非 FEFTD 
035D 乌 -- m 色 00 L_D 林 非 DD 
0350Rm 一 上 17 LDX 并 蔓 1 7 
030C 一 AD 01 LDY 并 旧 D1 
nS0E- 20 S7 下 寺 TSR 复 广 寺 忆 7 
0311- 名 0 民 T 窟 
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程序 说 明 ; 


$0300， 启 动 第 二 高 分 辨 作 图 页 。 


$0303: 取得 颜色 代码 。 
$0305: 设置 绘图 颜色 。 
$0308: 设置 纵 坐 标 为 $00。 


t 


$030A 一 $030D: 设 置 横 坐 标 低位 为 $17, 高 位 为 $01。 


$030 世 ;调用 画 点 子 程序 。 


键 ^: 300Gvw/ 后 ,屏幕 右上 角 (279， 0) 处 画 出 一 个 点 。 

、 在 屏幕 上 画 线 

知道 了 画皮 的 方法 ， 实 际 上 就 可 以 进行 画 线 了 ， 这 只 要 

将 一 条 线段 上 所 有 点 的 坐标 参量 设置 好 ，. 连 续 调 用 画 点 子 程 
序 。 但 这 样 做 无 疑 比 较 麻 烦 。 根 据 绘图 模式 的 不 同 ,: 在 系统 
的 R OM 区 中 已经 普 计 好 相应 的 画 线程 序 ， 调 用 这 些 程序 就 


能 较 方便 地 画 出 


一 条 线段 来 。 


: 低 人 辩 率 画 线 
低 分 辩 率 画 线程 序 有 水 平 线 和 垂直 线 两 种 , 画 水 平 线 的 子 
程序 起 始 地 址 是 $ 王 819, 其 颜色 代码 在 和 30 中 ， 纵 坐标 在 累 


加 器 全 中 ， 横 坐标 起 始 值 在 暂 存 器 Y 中 ， 


例 3， 见 程序 GP3103 。 


GPS10S 
0300- 20 
DS503-- 20 
0306- ”AS 
0308- SS 
030A-- “9 
030C- 6 
030E~-- ARA9 
0310~- ” R0 
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包 三 人 


起 0 三 也 
FF 

30 
2 
2C 

0Qb. 

00 


结束 值 在 $2C 中 。 


划 FCSS 
划 FB40 
半 千 F 户 
革 S0 
#j 条 27 
车 QC 

# 千 00 
并 先 DD 


0S12 一 20 1 广 纪 JSR 莫 广 弓 1 
0 本 1 一 怠 吕 RTS 


程序 说 明 ， 

$0300， 清除 当前 屏 划 为 黑 。 

$0303:， 有 尼 动 低 分 辨 作 图 页 。 

$ 03 06 一 下 0309， 颜 色 代码 存 入 $30 中 。 

$030A 一 $030D: 置 横 坐 标 结束 值 。 

$030 下 ， 置 纵 坐 标 为 中 00。 

$0310:， 置 横 坐 慰 起 始 值 为 $ 00。 

蔬 0312 :调用 画 线 子 程序 。 ， 

程序 GP3103 运 行 后 将 在 屏幕 的 上 方 画 一 根 从 左 到 右 的 
水 平 线 。 

画 垂直 线 的 子 程序 起 始 地 址 是 $F 828， 其 颜色 代码 在 
$30 中 ， 横 坐标 在 暂 存 器 Y 中 , 纵 坐 标 起 始 值 在 累加 器 A 中 ， 
结束 值 在 $2D 中 。 

例 4， 见 程序 GP3104。 


GPL0 革 
0s00 一 20 5 FC JSR 蓝 厂 C 己 
00= 一 20 40 FB JSR 蔬 f 六 已 斗 D 


03506- AN3 FF LDA 村 划 FF: 
03S30 纪 一 2S 0 入 下 请 芙 30 
0S0 电 一 AS 10 LDPA 委 10 
0 了 0C- ”SS 2D 马 下 请 坦 忆 品 
0350E 一 P 色 00 LDP 打非 0D 
0310-- ”Am0 05S LDY 并 自 中 与 
D3S12 一 20 .2 乌 FB JSR 非 广 马 Z 纪 
031S- 6E0 RTS 
程序 说 明 ， 


$0300: 清除 当前 屏幕 。 
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中 0303 启动 低 分 辨 作 图 页 面 。 

下 0306 一 忆 0309， 颜 色 代码 存 入 叫 30 中。 

$ 030A 一 下 030F ; 置 纵 坐 标 起 始 值 为 $00, 结 束 值 为 中 10。 

$0310: 置 横 坐标 为 叫 05。 

中 0312: 调用 画 线 子 程序 。 

程序 GP3104 运 行 后 将 在 屏幕 左 端 X = 5 的 位 置 上 画 
垂直 线 。 * 
"高 分 辩 率 画 线 

高 分 辩 率 画 线 是 通过 连结 两 个 点 来 实现 的 ， 因 此 必须 先 
设置 起 始点 坐标 ,调用 高 分 辨 率 画 点 程序 ($F457 ) 天 出 这 
个 点 ， 再 定义 结 来 点 尝 标 ， 调 用 机 正史 人 开始 的 西 线 子 各 
于 交友 岂 了 中， 机 兴 标 低位 存 于 村 加 器 和 中， 高 位 存 于 暂 丰 
器 X 中 。 

例 5，GP3105。: 


GPS10S 
0500-- 20 pe Fas5 JSR 划 FS5DS 
0303- 2035 LDX 村 东 0 
030S- 28 F0.F6 JSR 和 FEF0 
0308 9 00 LDY  。 # 寺 00 
0S0A- ”AAA2 00-… LDX ”4 和 00 


030c- 69 .00… -LDA HS00- 
03S0E- 20 S7 Fd JSR 钙 457 


03S11- 有 和 BF EDY 4#BF 
口 当 主 3 一 请 2 01 LDX 了 
D3S1S-- -所 9 17 LDA “并 才 1 了 7 
0317 一 20 3 FS JSR 大 FS3SR 
03IRA- 60 RT 名 
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程序 说 明 ， 

$0300， 启 动 第 二 高 分 辨 作 图 页 。 

$0303: 取得 颜色 代码 。 

$ 0305: 设置 颜色 。 

$0308: 设置 横 华 标高 位 为 $$00。 

$030A: 设置 横 坐 标 低位 为 书 00。 

$030C: 设置 纵 坐 标 为 $.00。 

$030 焉 :调用 画 点 子 程序 。 

$0311:， 设置 纵 坐 标 为 $BF。 

$0313， 设 置 横 坐 标高 位 为 $01 。 

$0315:， 设置 横 坐 标 低位 为 $ 17。 

$ 0317: 调用 画 线 子 程序 。 

书 031A:， 返回 。 

程序 GP3105 设 置 好 绘图 模式 和 颜色 后 ， 先 画 出 起 始点 
( $ 308 一 书 310), 然后 设置 结束 点 ， 并 调用 夯 线 子 程序 $311 
一 $31A )。 运 行 后 ， 从 屏幕 左上 角 到 右 下 角 画 出 一 线段 。 

四 、 高 分 辨 平 造型 表 操 作 

本 篇 第 二 部 分 将 介绍 造型 表 的 设计 和 使 用 ， 为 此 我 们 先 
说 明 一 下 有 关 造 型 表 操作 的 几 个 机 器 语言 子 程序 。 

. 调用 造型 的 指针 设置 

子 程 序 起 始 地 址 是 $F730, 调 用 前 将 造型 序号 存 入 暂 
存 器 X 中 。 该 子 程序 的 功能 主要 是 根据 造型 表 存 贮 地 址 及 造 
型 序号 取得 造 狂 向 量 的 绝对 存 贮 地 址 ， 并 将 地 址 的 高 位 和 低 
位 分 别 存 入 零 页 单元 $1B 、$1A 中 ， 指 令 为 ， 

A9 01 LDA#$o1 造型 序号 为 $01 

20 30 F7 JSR4F730 调用 子 程序 
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“ 造型 显示 位 置 的 设置 

子 程 序 起 始 地 址 是 $F 41t5: 调 用 前 将 显示 位 置 的 纵 坐 标 
存 入 累加 器 A ， 横 坐标 低位 存 入 暂 存 器 和 ， 高 位 存 入 暂 存 器 
Y 中 。 该 子 程序 的 功能 是 将 设置 的 显示 位 置 ( 指 造型 起 始点 的 
显示 位 置 ) 加 以 转换 ,并 存 入 零 页 单元 书 26、. 甩 27、$30 和 $$ 忆 5。 
其 中 有 26、$27 指 向 屏幕 扫描 行 最 左 端 所 对 应 的 地 址 ，.$ 5 
为 指定 地 址 相对 于 扫描 行 左 端 的 地 址 ,其 值 为 $00 一 书 27。 

“ 造型 显示 

使 用 指定 颜色 显示 造型 的 子 程 序 起 始 地 址 是 $F 601, 使 
用 补 色 显 示 造 型 的 子 程序 起 始 地 址 是 $F65D。 调 用 前 先 将 
造型 旋转 值 存 入 累加 器 A , :造型 向 量 绝对 地 址 的 低 、 高 位 元 
分 别 存 入 暂 存 器 X 和 立 中 。 指 令 为 

Ag 01 LDA# 书 01 ， 造型 旋转 值 为 $01 

A6 1A LDX$IA 低位 存 入 

A4 1B- 三 DY$1B 高 位 存 入 

20 01、 下 6 JSR 和 $F601 调用 子 程序 - 

以 上 介绍 的 3 个 造型 操作 子 程序 实际 上 相当 于 APPEL- 
ES OFT 中 的 DRAWAATX 订 和 XDRAWA AT X,Y 指 
令 。 这 里 A 为 造型 在 造型 表 中 的 序号 ， 和 及 立 分 别 是 造型 起 
始点 显示 位 置 的 横 坐 标 和 纵 坐 标 。 

除 此 之 外 ,还 有 一 个 很 重要 的 参量 , 这 就 是 造型 的 放大 值 , 这 
个 值 必须 在 调用 造型 显示 于 程序 之 前 置 入 零 页 单元 下 了 上 7 中 
至此， 我 们 已 将 机 器 语言 绘图 的 主要 部 分 介绍 完了 。 使 
用 这 些 子 程序 就 可 以 在 6502 机 器 语言 中 实现 很 多 绘图 功能 。 
下 -- 部 分 首先 简单 介绍 一 下 造型 和 造型 表 的 结构 ， 然 后 逐步 
完善 一 个 造型 设计 和 使 用 的 应 用 软件 。 
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受 计 和 使 用 


第 一 节 ”造型 原 惠及 造型 表 结构 


造型 是 APPLE-I 提 供 的 一 种 强 有 力 的 绘图 手段 ， 利 
用 造型 可 以 设计 出 各 种 简单 和 复杂 的 图 案 ， 这 些 图 案 可 以 在 
高 分 辨 率 作 图 页 面 的 任 一 指定 位 置 上 显示 ”并 能 通过 一 定 的 
指令 对 图 形 进行 旋转 、 交 大 处 理 。 因 而 在 APPLE 给 
中 得 到 广泛 应 用 。 

另外 ， 造 型 图 案 光 滑 、 细 腻 ; 显示 速度 快 ， 这 也 是 它 不 
同 于 其 它 方 式 绘图 的 特点 。 

那么 造型 是 怎样 得 到 的 呢 ? 我 们 知道 ， 作 图 的 过 程 实际 
上 就 是 光 点 在 屏幕 上 移动 并 留 下 痕迹 的 过 程 ， 这 个 过 程 的 每 
一 步 都 症 光 点 从 一 个 位 置 移 到 另 一 个 位 置 ， 把 这 种 带 方向 性 
的 移动 过 程 用 矢量 形式 记录 下 来 ， 就 能 够 得 到 图 形 ， 这 就 是 
造型 。 

' 根据 其 移动 方向 和 是 否 画 点 的 情况 把 矢量 分 解 成 8 种 ， 
各 以 王 定 的 代码 代 蔡 ， 见 图 3. 1。 

。 当 得 到 一 连 串 的 二 进 制 代码 后 ， 按 照 一 定 的 规则 将 之 转 
换 成 十 六 进 制 码 ， 这 就 是 造型 元 素 ， 见 图 3. 2。 

图 3.2 布 边 的 12 个 数 就 是 字符 “N ”的 造型 ， 其 中 最 后 
的 00 字 节 是 造型 结束 的 标志 。 把 这 种 造型 按照 一 定 的 结构 组 
织 起 来 就 成 了 造型 表 。 
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- 甫 


右 移 耐 不 面 点 


-在 移 而 不 条 点 


上 移 并 画 点 


图 3.2 


站 
人 人 2 
:十 移 而 不 画 点 二 
人 人 
7 


001001 00 
001001 00 
001001 00 
10010101 


000011 10. 0E 
040011.10 一 0 下: 
010101 10 
00100100 


001001 00 
(00100100 
000001 00 
00000400(0 


第 二 节 ”造型 表 的 构成 
造型 表 由 两 个 部 分 组 成 ， 即 造型 目录 和 造型 向 量 。 
造型 表 的 第 一 个 字 节 存放 造型 的 数目 ， 其 值 为 $00 一 
$FEF ， 即 一 个 造型 表 最 多 可 存放 255 个 造型 ， 第 二 个 字 节 
不 用 ， 从 第 三 个 字 节 开始 ， 每 两 个 字 节 一 组 存放 各 造型 相对 
于 造型 表 首 的 存放 地 址 ; 头 一 个 字 节 为 地 址 低位 ， 后 一 个 字 
节 为 地 址 高 位 。 


第 三 节 ”造型 表 的 使 用 ， 


当 建 立 好 一 个 造型 表 后 ， 就 可 以 使 用 这 外表 中 的 任 一 
造型 来 进行 图 案 设 计 。 使 用 前 先 设置 零 页 指针 $$ 己 8、 
$ 正 9( 即 十 进 制 232、233) ,使 其 指向 表 的 起 始 位 置 ， 如 造型 
表 起 始 位 置 为 $6000(24576), 则 $EE8、 下 正 9 中 的 值 应 分 别 
是 $00 和 $60。 然 后 启动 高 分 辨 作 图 页 ， 调 用 BASIC 指 令 
或 相应 的 机 器 语言 子 程序 来 绘图 。 

前 面 已 经 介绍 过 ， 造 型 的 显示 是 通过 调用 DRAW ($ 
F 601 ) 或 XDRAW ($F6D5) 子 程序 来 实现 的 ， 两 者 的 
区 别 是 ， DR AW 以 指定 颜色 显示 造型 ,而 XDRAW 则 以 
屏幕 底 色 的 补 色 来 显示 造型 。 因 而 当 用 DR AW 在 指定 位 置 
上 显示 ;一 个 造型 后 ， 再 用 XDR AW 在 同一 位 置 上 显示 同一 
造型 ， 正 好 起 到 清除 原 造 型 的 作用 。 

另外 ,造型 的 旋转 角度 和 放大 倍数 是 DRAW 和 XDRAW 
子 程序 调用 前 就 必须 设置 好 的 两 个 参量 。 

放大 倍数 在 书 00 一 $FFE 之 间 (放大 倍数 为 下 00 时 实际 
值 为 $ 100， 即 256 倍 ), 由 于 屏幕 范围 的 限制 ， 一 般 造 型 的 放 
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生机 俱全 训 和 。 
度 还 决定 于 放大 倍数 。 当 放 天 信 数 ， 

为 1 时 ， 能 旋转 的 角度 为 000")、16(90*)、32(180*)、 
48(270。 ) 3 注 

为 2 时 ， 能 旋转 的 角 度 为 000*)、8(45。 、16 (90") 、 
24(135")、.32 (180*)、.40(225。)、48(270。)、 ci: ) 。 

大 于 或 等 于 5 时 ， 能 旋转 64 个 角度 。 

通过 上 面 的 介绍 ， 可以 着 到 使 用 造型 来 绘图 有 许多 优点 ， 
但 造型 的 建立 和 造型 表 的 组 合 却 比较 麻烦 和 费时 。 为 此 ， 本 
篇 的 下 一 部 分 将 逐步 完成 一 个 造型 表 设 计 的 机 器 语言 程序 ， 
这 一 .程序 具有 造型 表 的 调 入 、 存 贮 、 初始 化 、 造型 建立 、 内 
插 、 删除 以 及 图 形 设计 等 功能 。 从 中 ， 读 者 可 以 看 到 机 器 语 
言 造 型 设计 的 大 概 情况 。 
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-本章 所 提供 的 这 -: 著 型 攻 计 枯 序 全 部 使 用 6502 机 器 语言 
编 成 。 按照 各 程序 块 的 动能 不 同 ， 我 们 将 其 分 为 8 个 部 分 分 
别 介 绍 ， 最 后 介绍 程序 的 所 作 使 用 


第 一 节 参数 设置 


见 程 序 GP 3301 清音。 
GPS3S01 


0S0T- 有 3 4C LDRAR “林寺 4 
0803- -Snp FS 03 STR 得 U3SFS 
0306- “9 20 巧 也 村 20 
0908- SD F5 0 分 下 己 和 03FS 
0S0D- 号 口上 了 8 要 D3F7 
DeTO 一 0 在 00 3 DO 
oa19- 臣 纯 .0 有 :一 
0 如 -了 人 F 
0SlD- 2p CD SR : 
DBED 二 人 300 巧 BA “日 
9222-- :8H 81, 60 和 克 - 836081 
ezs- pn3oo DR ， HH 业 00 
0B2Z 2 日 也 把 


-0 
条 8S12 - 
要 FECD 


7 


0S2C-- C 襄 。 DEX 

0S2D-~- DD FF 后 BINE 生 US29 
OBS2F -~ 已 S 下 忆 GT 了 FF 人 
0S31 一 和 号 01 LDA 并 非 0 
0 全 3 一 SD 0B 03 己 T 记 秆 03UB 
月 扎 忆 各 ~ 所 00 LDA 半 非 吕 U 
D 伺 3S 一 235 上 扎 它 马 TA 非 E 饭 
口 写 3 广 一 内 纪 0 马 LDA 村 者 吕 马 
02S3SC-- .SS ES 今 T 往 非 丰 所 

Q 仿 了 一 语 0D0 LDA 间 夸 00 
0240-- SD S0 CO STA 茧 COS0 
DB4 一 2D S2Z2 CO0 STA 人 CS 祖 
0246 一 2D S: CU 人 T 村 COS4 
0S:4 乌 一 SD SP CD 马 T 后 夸 COS7 
0S:C- ”RAR2 00 LDx # 秋 00 
0QSd4E 一 EBD 1LC 1 LDP 功 1 了 1LC,，X 
0SS1 一 GD 00 0 STR 划 0 天 00,，X 
DSS: 一 巨 己 IIX 
0SSS- E0O 0B 亡 尸 X 村 千 Q 已 
0 呈 S7 一 DO FS BNE 条 0Bd4E 
0SS9S- 20 0C FD JSR 苦 FDOC 
程序 说 明 : 


$0801 一 和 080F : 设置 也 入 口 为 $0820。 

和 0810 一 中 081F， 调 入 第 一 高 分 辨 图 形 HAE 0 。 

$0820 一 0835: 初始 化 有 关 存 贮 单元 。 

$0836 一 $083D: 设置 光标 造型 始 址 为 0300。 

下 083E 一 书 084B :启动 第 一 高 分 辩 作 图 页 。 

$084C 一 $0858:， 将 光标 造型 移入 和 0300。 

程序 GP3301 首 先 设置 & 入 口 ， 以 便 退 出 或 中 断 运行 后 
能 随时 从 键盘 输入 “& ”指令 重新 启 动 。 然后 调 入 一 个 名 为 
SHAPE0 的 二 进 制 文件 ， 这 一 文件 实际 上 是 一 幅 第 一 高 分 
准 作 图 页 上 的 图 形 信息 ， 它 使 用 造型 汉字 显示 程序 的 各 个 
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功能 ， 其 格式 : 


一 一 操作 指令 一 一 
FL]: 造型 表 调 入 
[2] 造型 表 存 贮 
[3] 造型 表 初 置 
[4] 造型 建立 
[5] 造 型 
[3] 造 型 
[7] 图 形 设计 
一 一 请 选择 ? 


下 


图 形 信息 调 入 内 存 后 ， 对 程序 中 要 用 到 的 一 些 指针 和 参 
量 存 贮 单元 进行 初 值 化 ， 并 启动 高 分 辩 作 图 第 一 页 面 ， 以 显 
示 其 操作 指令 。 最 后 将 光 点 造型 移入 由 300 开 始 的 地 址 中 , 等 


待 操作 者 键入 功能 序号 。 
第 二 节 ，” 造型 表 的 调 入 和 存 对 
见 程序 GP 3302 清 单 。 
GP3S02 
0SSC 一 志 也 CPP 村 著 已 二 
0SSsE- ”DO0 3B BNE 和 089SB 
0eE0-~ ” F0 17 BEQ 二 0879 
0952- ”20.58  FC JSR 4#Fcse 
09GS 一 20 2F FB JSR 条 FB2ZF 
Dece-~  A2 00 LDX 。 # 夺 00 
Beer  BB 0C 135 LDARA 和 1350C,X 
日 20. ED FD JeR 。 4$FDED 
ED 0F- CPx 村 竺 0 和 
D0 FS . BE 圭 DSEPR 


479 


8 号 7Z 太 -- 
0S7e- 


0ez9r- 


8S2C=- 
SGzD- 
0SZ7E- 
0Se1- 
DSS4 一 
DBeBE-- 
.99SS- 
0SS2DPR 一 
眉 乌 名 刀 一 
8 人 号 邹 DR- 
09S1 一 
GBSs5- 
0 癌 守 车 一 
0D 虽 包扎 一 

0 所 SG 

02 久 B-- 
0923D-- 
如 急 刀 ff- 
08A2- 
0eAS- 
02Pm 一 
SA 一 
nenB- 


0eAD-- 
筷 吕 了 从 一 


日 名 刀 二 一 


0SBz- 
0SBE-- 


SB7- - 
门 喇 宙 扫 -- 


D 乌 也 志 一 
02PBD 一 


DeBF- 、 


QOSBC2Z 一 
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-用 D: 


102 
9 人 2: 


12 


9 


02 


Ch 
也 人 人 
JP 
可 写 尺 
L.DR 


仿生 户 。- 


IHMNX 
LDO- 
ST 扬 
到 
LDD 
华 T 所 : 
工 HH 
L_D 户 
STP 
工 HA 
LDR 
写 让 
INMX 


昔 FDEGF 


条 0209，X 


村 020S, 六 
并 等 间 G 


区 9BZ7D 


村 车 0 扎 


千 12FP X 
汪 旭 1 FF 4 


划 口 己 G3 痊 


匣 SFCD 


要 US 


睁 日 纪 人 1 
莫 0B62Z 
林 莫 甩 (… 
教 日 之 QT 、 冯 


村 莫 f 信 1 
莫 D200， 


村 非 站 直 
区 全 和 时 遇 ， 色 


-村 非 EG 


非 门 2200、 冯 


并 和 世 PB0 


壮 0200，X 


0SC23 一 


ecCcE-- 


0SCz 一 
0SC 有 一 
0BCB 一 
月 号 所 了 一 
QS2D0 一 
口 马 口 1 一 
0SDz 一 
U 包 DE 一 
0SD7 一 
DSDS-- 
8 号 D 乌 一 
USDB-- 
品名 DC 一 
0SDE 一 
0 包 ED0 一 
0SE< 一 
0eE4-- 
0SBE6 一 
0SE7 一 
0 名 E 户 一 


有 乙 


-02 


我 0 过 00， 和 % 
和 葡 D 过 00，, 六 


村 普 户 伺 
等 0 过 0Q0，, 和 ※ 


林 非 仁 全 
压 0 过 00，xX 


划 Q 忆 9， 关 


肆 OSF 1 
村 咎 弓 也 
苇 Q200， 人 六 


等 0200,X 
鞠 0205S, X 
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0 邹 0D 一 
0S30F 一 
0311 一 
0S1<s 一 
0916e 一 
0953193 一 
091P 一 


0S31C 一 
0S1E 一 


程序 说 明 ; 


$ 0862 一 $ 0878， 输 入 文件 名 。 


CCP .# 和 村 00 


BNE 上 0906 
LDX 4# 本 00 
LDA 条 133C,X 
STA 和 攻 0200,X 
CPX 4#05 
BNE 多 09135 
JMP 条 08935 


$ 087C 一 中 0894: 设置 BLOAD 指 令 。 
$ 0895 一 $ 0897:， 调 入 造型 表 。 
$08A. 5 一 $091D ， 设置 BS AV 巨 指令 。 


$ 091E 一 $ 0920， 存 贮 造 型 表 。 


当 操 作者 从 键盘 按 入 “12? 或 27 后 (不 必 按 回 车 )， 
即 转 为 执行 造型 表 的 调 入 或 存 贮 功能 。 
_ 首先 要 求 输入 造型 表 文件 名 , 再 调 入 或 存 贮 造型 表 文 件 。 
调 入 和 存 贮 过 程 实 际 上 是 执行 BLOAD (文件 名 ) 和 Bs AYE 
(文件 名 >,A$6000, 王 〈 长 度 》 命令。 


第 三 节 ”造型 表 初 置 


见 程序 GP 3303 清 单 。 

0921- ” C9 B3 CMP 
0923- ” FO 03 BEQ 
0925- ”4C B7 09 JMP 
0928- “20 58 PC JSR 
092B- ”20 2F FB JSR 
092gB- ”和 A2 00 LDX 
0930- “BD.4L1 13 LDA 
0933- ”20 ED PD JSR 
0936- ER INX 


482 


0937- 
0939- 
093B- 
093E- 


0940- 


0942- 
0944-- 
0946- 
0948-- 
094B-~ 
094D-~ 
094FE 一 
0951-- 
0954-~ 
0955- 
0958- 
095B-~ 
095 马 一 
0961- 
0963- 
0965- 
0968- 
096A- 
096D- 
096E- 
0971- 
0974- 
0975- 
0977- 
097 人 入 一 
097B- 
097D- 
0980- 
0981- 
0982-- 
0984- 
0986- 
0988- 
098AA- 
0d98C- 
098D-~ 
098B- 
0991-~ 
0993- 
0995-~ 
0997- 
099A-- 


6F PPD 


00 02: 


00 02 


48 09 
67 DD 
52 已 7 
8E PD 


2E 09 


00 60 
00 60 
00 61 


00 60 


00 60 


CPX - 
BNE 


亲 S1B 


$0930 


SFD6F 
#S00 
SB8 
#SO32- 
SB9 
#SO00 


$0200 ， 


着 S8D 
S0958 
着 S7P 


So0200 ， 


$S0948 
SDD67 
SE752 
SFD8E 
S$S51 
S$0968. 
S092E 
$S50 
$S6000 
#SO1 
#SO0 


$S6000 ， 


8$S0971 


$S6100 ， 


S0977 
3S6000 


SFC . 
半 S0O0 
着 SO00 
SFD 
考 SO2 


SFC 
SFC 


' 间 S60 


SFD 
SFD 
$S6000 


及 


久 


是 


X 


久 


09A1- 6900 ADC 。”#$S00 
09A3- “8D 03 60. SITA  S$S6003 
09A6- “AD 02.60:， bbDA 8$6002 
09A9- ”18 CUC 
09AA- ”69 02 ADC 。#S02 
09RC- 8D 02 60 -SIA  S$S6002 
09AF- 90.03  . BCC “” $S09B4 
09B1- ， EE 03 60 INC ”S$6003 
098B4- 4C 25 08 JMP ” S$S0825 
生 
程序 说 明 ， 


$0928 一 $093D 要 求 输入 造型 数目 。 

$093E 一 $0960， 转 换 成 十 六 进 制 。 

$0961 一 $0967， 如 大 于 叫 FF 则 转 为 重新 输入 。 

$0968 一 $996C ， 置 入 造型 表 第 一 一 个 单元 。 

$096D 一 $09B 3:， 造型 表 目 录 区 初始 化 。 

由 于 造型 表 的 结构 主要 决定 于 造型 的 数目 ， 因 此 造型 表 
初 置 程序 首先 要 求 输入 造型 的 数目 。 然 后 将 这 一 数目 转换 十 
六 进 制 并 置 入 表 的 第 一 个 单元 ， 再 对 表 的 且 录 索引 区 进行 初 
始 化 。 

在 本 软件 中 ， 利用 造型 表 的 第 二 个 单元 下 6001 来 存 贮 当 
前 造型 的 实际 数目 。 因 此 一 开始 $6001 清 为 零 。 


第 四 节 ”建立 造型 


建立 造型 是 本 软件 的 主要 功能 ， 它 首先 在 屏幕 上 绘制 出 
一 个 25x15 的 表格 ， 通过 操作 者 键入 的 指令 控制 绘图 光标 的 
移动 ， 并 将 移动 所 得 的 矢量 经 转换 置 入 造型 表 的 特定 位 置 。 
出 时 在 屏幕 下 方 开辟 一 个 窗口 3 用 来 季 示 当前 造型 的 情况 。 

建立 造型 的 指令 有 绘图 光标 的 上 、 下 、 左 、 右 移动 、 
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点 、 清 除 、 结 束 等 《 详 见 操作 使 用 部 分 )。 


下 面 我 们 将 建立 造型 部 分 ， 分 几 段 进行 介绍 。 


一 、 造 型 存放 地 址 的 确定 
见 程序 GBP 3304 清 单 。 


0SE7- AD -01 60 


林 等 了 4 
攻 0SBE 
和 OF 
s6001 
s09DF 
#FCSS_ 
地 FB2F 


和 00 


村 1327，X 
SFDED 


梓 千 1 瑟 . 
#0SCE 
和 FFD8C. 
秋 09825S 
要 02 
革 BB 
村 茧 EU0 
昔 孔 鸟  . 
和 邯 6001. 


和 03F0. 
知 B 


蓝 也 名 
利 B 忆 
划 0S3F9 
蓝 已 乌 
并 业 00 
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Be LA 《 千 BB3 YY 


BBS 马 T 户 ( 委 BB) ,YY 
B9 _STA ” 角 B9 


Be STA 惠 BB 


AS 60 LDA HH# 和 60 


邱 . B9 ADE ”$BS 


也 e- 人 DR 赤 BS 
FFC STA 4FC 


sSD 01 60 LDA 和 60D1 
DB9 1F BNE 。 千 0 六 SS 


00 60 LDA  #En000 


“FC ST 崩 和 FC 


AS9 00 LDA 。 40 条 


SS _FD STA 要 FD 


FD -ADC 。 #FD 
3 FD ST 语 苏 FD… 
5 FC LDA 条 FC 


02 ADC 。 # 千 02 
FC STE 要 FC 
02 BCC 。 #$0A3SS 
FD INC ”要 FD- 


AD 0B 03 LDA 条 030 日 


01 所 0 IMC 蔷 6001 


$09B 下 一 $0%9C 3: 当前 造型 表 中 造型 是 否 已 满 。 
$09C 6 一 $09DE ， 如 是 则 显示 造型 表 已 满 ， 返 回 。 
$09DF 一 书 0A 34:， 计算 造型 存放 地 址 

建立 造型 一 开始 首先 判断 造型 表 是 否 已 满 。 因 为 在 造型 
表 初 置 时 已 经 规定 了 造型 表 可 容纳 造型 的 最 大 数目 ， 因 此 只 
要 比较 当前 束 中 的 造型 数目 与 最 大 数目 即 可 判断 是 否 存 满 。 
如 已 存 满 ， 就 不 能 再 建立 造型 而 返回 原 清 单 。 

如 尚未 存 满 则 计算 该 造型 的 存放 地 址 。 存 放 地 址 的 计算 
分 两 种 情况 ， 

当 表 中 沿 没 有 造型 时 ， 当 前 造型 〈 即 第 一 个 造型 ) 的 始 
址 在 目录 区 后 的 第 一 个 单元 ;， 最 大 造型 数 村 2 + 2 处 ， 实 际 
地 址 是 ， 最 大 造型 数 半 2 二 和 6002; 

当 表 中 已 有 建立 好 的 造型 时 ， 由 于 前 一 个 造型 结束 时 已 
算出 下 一 个 造型 存放 始 址 的 偏 移 量 并 置 入 特定 单元 ， 因 此 将 
这 一 偏 移 量 + $6000 就 是 实际 地 址 。 

计算 出 的 存放 地 址 高 、 低 位 分 别 存在 零 页 单元 $FD 、 


$FC 中 。 
二 、 表 格 绘制 及 初始 位 置 确 定 
见 程序 GP 3305 清 单 。 

GPS3S05 

BASD- 20 De Fas SR 考 FS5DB 
0Ad40 一 AR2 0 LD>% 半生 0. 
0RAd42 一 20 F0 FE JSR ”和 肆 FGEF0 
0Ad4S 一 A9 01 LDA 。”# 香 01 
0Ad47-- eS _E7 STAR 。 $E7 
0RAd4S 一 AS 00 LDA 村 00 
OP 千 卫 一 SD 0C 035 乞 T 户 帮 030C 
DAd4E-- AS 00 LDA 4# 村 00 
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GAS0 一 
0AS2 一 
DAS4 一 
0ASE-- 
0mS5e- 
0ASB-- 
0ASD-- 
0ASF 一 
0A61-- 
0 记名 寺 一 


0AEE--， 


0RE7 一 
D 人 已 扫 一 
0AEB 一 
0AED 一 
0AEGF 一 
07L 一 
0 握 7 二 一 


0 语 2S--- 
0A77 一 


0AZ7ZS~ 
0AZC 一 


0AA7E 一 … 


0 记名 0 一 
DAe2-- 
0ARSs 一 
0RAS7 一 
0ASS 一 
0RSPA 一 


0ABC--， 


DAeE- 
0A30 一 
0AS3S 一 
0AS6 一 
0A99-- 
0ASE-- 
0ASE-- 
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FD 


FED 
FD 


-02 


02 
0 请 
DD 
EZ 


_FD 


0 


0 记 


村 和 10 


车 吕 六 乌 日 


#FDED 


半 息 BF 
条 FDED 


基 FDEF 


# 生 0Db 
二 Be 
亲生 0 之 
大 BS 
村 革 00. 


大 DPCC 
并 塌 FF 


要 0209,XX 
条 SD 


秋 0 记 BC . 


条 DDEZ 


条 ES2. 
世 FDSE . 


等 S1 
#0A99 
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0AF2-- SS FF ST 户 
0 户 F:4 一 AZ2 00 LDx 
0AF6 一 eS FE LDA 
0AFS-- 1 CLC 
0AFS 一 ES FE ADC 
0AFB-- ES 工 MX 
0AFC 一 ED0 .0 乌 CPX 
0PmFE 一 D0 FS BNE 
0B00-~- SS FE STA 
.0B02-- AR2 .00 LDX 
0B0+4 一 PS FF LDD 
0B0E 一 1S CLC 
0B07 一 后 所 FF ADC 
0B09~ ES INY 
0B0P 一 EO0 0 乌 CPX 
0B0OC-- D0 FS BNE 
0B0E 一 SS FF STRA 
0B10 一 A2 01 LDX 
"0B12-- 20 30 F7 JSR 
0B1S 一 上 SFE LDN 
0B1l17 一 FD 0OE BEG 
0B19-- 3  ， -SEC 
0B1P 一 ES 05S SBC 
0B1C-- 妃 S_ FE ST 记 
0B1E 一 AS .FF LD 合 
0B20-- SS .SEC 
0B21 一 ES 0S SBC 
0B2S 一 2S FF STD 
程序 说 明 : 


忆 0A 52 一 $0OA8F ， 画 出 造型 方 框 。 

书 0A 99 一 $0AB 1:， 输入 起 始 位 置 坐标 。 

书 0AB 2 一 下 0AD9:， 转换 成 十 六 进 制 。 
$OADA 一 $0AE6: 取得 横 坐 标 X 。 

$0AE7 一 $0AF3， 取得 纵 坐 标 Y 。 
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$oAEF4 一 下 0B 24， 计 算 实际 坐标 位 置 。 

前 面 一 个 程序 段 ($A3D 一 $A8gF ) 所 画 的 表格 是 一 
个 25x 15 的 表格 ， 其 实际 位 置 是 横向 0 一 250， 纵 向 0 一 150。 
绘图 光标 就 在 这 一 表格 内 移动 《 见 图 4 3)。 


HH 上 HH 下 


CT 
村 十 一 -一 人 一 人 一 | 一 | 一 | 一 上 一 -一 产 二 | 一 -上 -| 
Li 1 二 二 | 中 | 电 二 二 
-直上 十 时 和 村 | 二 

| 1 1 t 
rerrrrrrrrrFrrr 
上 -Li |- 下- 一 


-一 十 一 二 半生 二 站 二 下 
1 上 _ 十 | 
广 : 一 | 和 1 站 q 十 二 十 | 全 
rr [一 下 mrTTTrT 一 
-4 

二 4 

Li LL LTLLTYLLL LS 和 1: 


图 3.3 


因此 ,接着 要 输入 的 起 始 位 置 坐 标 要 求偶 坐标 X 在 1 一 25 
之 间 ， 纵 坐标 阅 在 1 一 15 之 间 。 然 后 ， 将 之 转换 成 实际 位置 ， 

久 王 10 关 入 一 5 

Y=10XY 一 5 

这 一 输入 的 起 始 位 置 就 是 造型 的 起 点 ， 也 是 造型 旋转 时 
的 支点 。 

三 、 控 制造 型 光标 

见 程序 G P 3306 清 单 。 

GPS506 


0B2S-- AQ 00 LDY  。 关 埋 00 
0B27-- AE FE LDX 书 FE 
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0B29- 
了 C 一 


DBzE-- 


0 书局 一 


吕 了 、 
上 4 


几 马 芭 呈 一 
号 7 一 
D 书 3 所 一 
间 RRSEB 一 
0 孔 SD 一 
0B3F -- 
DB41 一 
0 了 已 斗 瑟 一 
0 也 寸 二 一 
0B47 一 
0Bd4S 一 
0 也 d 记 一 
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马 0 
广 王 


F4 


1 FE 


FD 


二 


0 


0C 


:0B: 


0 呈 


.DC 


香 0BSC 
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0BCS-- AS _ FE LDA ”要 FE 


GBC7-- CS9. 0 语 MP HS0R 
DBC9-- B0 0 吉 PCS 得 0BCE 
0BCB 一 4C 7D 0B -IJMPR 得 0B>z 
0BCE-- 38 SEC 
0BCF-- E9 0 SBC 。 # 业 0A 
0BD1 一 SS FE STA 4 和 FE 
0BD3 一 4C 2E 0C JMP 和 0C2E 
程序 说 明 : ， 
$0B 25 一 $oB 34: 显示 光标 造型 。 
$0B 41 一 中 0B 68， ”显示 当前 建立 的 造型 。 
$0B 69， 等 待 按键 。 
$0B 6F 一 $0B 8A ， 如 按键 为 T*. 则 纵 坐 标 递减 $0A, 上 
$0B 8B 一 上 $0B A 3; 如 按键 为 KK ， 则 横 坐标 递增 否 0A , 右 
$0B A 4 一 $0BBC:， 如 按键 为 M， 则 纵 坐 标 递 增 下 0A ,下 
移 一 格 。 
$oBBD 一 $0BD 5 如 按键 为 J， 则 横 坐 标 递减 $0A , 左 
- 移 一 格 。 


造型 光标 混 指 示 当 前 屏幕 位 置 的 标志 。 这 一 标志 通过 按 
入 L!|、M、j、K 4 个 键 来 控制 上 、 下 、 左 、 右 的 移动 ， 当 按 
入 其 中 一 个 键 时 ， 首 先 判断 光标 是 否 会 越 出 画 好 的 表格 ， 如 
是 则 按键 无 效 ， 发 出 一 声 “ 哪 ”后 返回 。 和 否则 改变 坐标 值 ， 
以 全 相应 吾 动 光 这 。 

、 点 的 清除 
由 涅 序 GP 3307 清 单 。 
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0D 
0D 


0D 


0D 


忆 二 
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0cC2B 一 4C BEBB 0D .IJMP: 杀 DDBS 
程序 说 明 : 本 
$0BD6 一 时 68 已 3 . 画 点 。 
$0BE4 一 $6BEA; :退出 。 
$9B 卫 下 一 囊 0C04: 如 按 入 非 指 李 键 ， 出 显示 提示 信息 。 
申 0C 95 一 于 6GCa2:， 返回 原作 图 页 二 _ 
币 0C 16 一 划 0C2A :清除 光 点 。 
当 掖 入 P 键 画 了 、 企 不 应 画 的 点 后 ,和 河 接 正 键 清除 。 如 
时 接 入 的 博信 刍 ， 旬 让 动 文本 关 显示 下 二 的 拉 人 
息 : 四 
MOVE 了 LO 下 WIT 十 FOLEOWING， JSEYS 
TUP，M 一 DDWN， J 一 LEFT1 民 一 -RIGHT 
P ~-PLOT，E-ERASE，Q-- QUIT” 
待 按 于 住 意 一 一 个 键 房 又 返回 造型 建立 的 页 面 。 
五 、 和 失 量 绎 合 . 
见 程序 G 了 2308 请 单 


DC2E= hn5 FE6 DA 大 FE 
0C30~- “29 D0 CHMP ”村 起 DD 
0C32=- -  ”” D0 97 _ RE 检 DC3B 
DC34 一 - AS F7 七 D 有 ”要 F7 
DPC3e- ”113 CHLC- 
DCS7= 和 ”的 :94 DG - 灶 帮 Q 生 二 
n0Cs59-- ”95 F7 ”  ， 治 褒 帮 F7 

0 性 蕊 百世 。 巧 区 < 日 让 - 0 本 + 愉 - 和 6 
0C3E- AT SC 05 “CDS - 和 才 030C 
DOc41- .C9 81 “CHMP- 间 攻 Cl 
0C435=… Da- 07 “多 NE 枚 DC4C 
DC4 写 = 入 号 :7 ED 语 和 昔 F7 
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Ni 


0cC47- 
0C49- 
0C4C 一 
0C4E- 
0CS0- 
0Cs2- 
0QCS3S- 
DCS4- 


0CS2 一 


0CSe- 


0CSZ 一 
0CSss-- 
0CSB~ 
0CsD- 


0CSF 一 
DCE2 一 
90C63 一 
0CE 与 一 
DC 已 一 
0CGS9S 一 


0C6B- 


0CED 一 


0ceF- 


0Czil- 
DCzs-- 
0C7s- 
0Cz7e- 
DCzB- 
0C 7D 一 
0G”F 一 
0CB1l=- 


0Ces- 


0CSG- 
Ce 一 
0LC89 一 
.0C 马 一 
0CSB 一 


0D 


0D 


0 


oc 


1 四 


是 


装 F 之 
条 0DB2 
村 千 0 之 
和 落 0C7B 
意 F 了 7 
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0CSBC- 2 
0Cep- 2 
0CSE 一 2 人 
0CSF 一 1 
0C9S0 一 - ES F2 要 F2 
0C92 一 SS F2 芋 F 过 
0C94 一 Ad.00 村 多 00 
0C96 一 931 FC 《等 FC) 
0C9S-- EGG FC 条 FC 
0CSA 一 D0 02 条 0CSE 
0CSC 一 EE _FD SFD ， 
0C9E 一 - AS _F7 等 F7 
0CA0 一 . FGO 0C 条 DCAE 
0CA2 一 C9. 04 村 车 04 
0CAd4 一 B8.09 步 DCAE 
0CA6 一 A9 00 村 簿 00 
0CAS 一 - SD 0C 03 志 0S0C 
0CAB 一 4C B2 0D 基 0ODB2 
DCAE~ 和 93 01 间 靠 01 
0CB0 一 SBD 0C 03 葡 03S0C 
0CBS 一 AS F7 千 F7 
0CBS 一 SS F2 等 F2 
0CBz-- 4C B2 0D JMF 条 0DB2 
程序 说 明 : 7 


$0C 2 已 一 中 0C 40， 带 点 矢量 值 加 4 。 
$0oC 41 一 $0C 4B ， 位 元 的 第 一 部 分 。 
$oC4C 一 $0C7A :位 元 的 第 二 部 分 。 
$0oC 86 一 $ 0C AD :位 元 的 第 三 部 分 。 

一 个 造型 矢量 对 应 0 到 7 之 间 的 一 个 数值 ， 把 2 个 或 3 个 
矢量 组 合成 1 个 0 到 255 之 间 的 数 ， 这 个 数 就 是 造型 的 一 个 位 
元 组 。 

由 于 一 个 位 元 组 最 多 可 存放 3 个 矢量 ， 因 此 其 值 等 于 第 
一 个 矢量 加 第 二 个 矢量 的 8 倍 再 加 第 三 个 矢量 的 64 倍 。 
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六 、 绘 点 
见 程序 G:P 3309 清 单 。 


治 良 马 了 0 号 


0 忆 轧 疡 一 
nCBC 一 
QU 人 4: 驴 D 一 
DCBF 一 
0C 们 口 一 
DCC2 一 
昌 全 读本 一 
0CCS 一 


QFP 人 2 


间 C 人 及 一 
口 人 人 翁 一 
0C 们 万 一 
0 六 旋 广 ~- 
有 位 孔 甩 一 


0CD2 一 . 


0CD4-- 
0CDS- 
0CD7-- 
0CDA- 
0CDD- 


Q0CDF 一 ， 


DOCE1- 
0CE3-- 
0CEE 一 
0C 丘 2- 
DCEA 一 
0CEB 一 
0CED-- 


QCEE 一 


0CF0-- 
0CF2-- 


DCF 蕊 一. 


1 


F4 


广 三 
0 全 


复 FE 
# 等 0 
千 FF 


阅 委 01 


, 半 划 00 


非 Fd4S7 
复 FF 


村 烛 01 


林业 00 


急 FE 


梓 千 0 一 


SFSSA 
划 QCBE 


村 秒 03 


- 车 0CES 


委 FF 


_ 枯 BCEB 


复 FF 


_ 划 FE 


圭 竺 0 驴 - 


村 和 00 
非 F 广 


村 等 0 工 
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DC 和 FS 一 
0 亿 厂 号 一 
0 人 C 三 恨 一 
QUCF B 一 
心 CF TD 一 
DC 三 户 一 
ti0'O0 一 
DDQ 志 一 
DUO 一 
0 了 ID 一 


.0D0 呈 一 


_DDd+d 一 


0D09- 
ac 一 
0DQOF-- 
0D12-~ 
0D1S- 
QD1 扣 = 
0D19- 
0D1C 一 


0D1F--: 


0D 二 二 一 
0DES-- 
0Dz 生 一 
98D2zS- 一 
0D2B- 
0D2D-~ 
0D20 一 
DDS2 二 一 
0DsSS~ 
0D3SS 一 
QD3SDm 一 
0DSBD-- 


0DSF--- 


0Dd4 二 一 


0D 斗 各 一 


DDHXYS 一 
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Fd 


和 忆 


人 人 
昌 亡 


站 广 


8D 


0 全 


性 仁 


门 全 


人 人 


DC 


口 也 
0D 


0D 
局 


0D 


0D 


划 F 志 SA 


普 FF 


林 革 口 1 


起 00- 
_ 委 FE 


# 非 0 天 - 
和 FS 


划 0CBE 


攻 0CDE 
条 OUCEC 
委 0D044 


和 DCCE4 


雪 0 六 CE 


非 DCFd 
埋 DCFC. 
悉 DCBA 


并 要 01 


委 0DO0 包 


半生 63 
香 0 了 1 
半 赤 6 过 
和 0DD0 纺 
划 DD16E 
村 车 二 
赤 0DDGS 


-村 和 革 0 


苇 DD1E5 
复 FE 
车 F 有 
车 0DDd4E 
划 FF 


0D4 户 一 仁 气 - 于 日 CPP 车 FB 
0Di+C>= F9 17 “BEQ， 划 0DES 
0D:4E 一 上 2 D1 LDx， 和 区 91 
0DS9 一 .29 350 F7 3SR SF7350 
GDS3 一 内 瑟 FF DA 和 考 FF 
DBDS5S- AE FE LDX- 和 苇 FE 
0DS7~ Aa 00 -LDY 间 世 0 
DSS- -28 1 Fd JSR 和 411 
人 ODSC- AS 00 LDA， 并 划 吕 中 
0DSE-- 六 后 工 户 EDX 车 革 
0DG0 一 从 4 1 也 LDY 要 1B 
9pE2- : -20:SD F6 JSR 和 FESD 
0DSS-- 650. :RTS 
程序 说 明 : ? 


下 boCBA 一 - 囊 0DCC 9:， 画 出 起 始点 。 
$0CCA 一 $6CD 9， 连 结 起 始点 与 结束 点 
事 oCE6 一 上 0OCF7;， 画 出 起 始点 。 
$oCF 8 一 $0D 08; “连结 起 始点 与 结 央 束 点 。 
$0D 09 一 和 $$0D 41，“ 参 数 设置 和 调用 。 
.为 了 画 出 造型 必须 在 表格 内 绘 点 ， 这 个 画 出 的 点 是 
实心 圆 ， 由 大 根 线段 构成 第 一 和 第 六 根 等 长 ， 第 二 和 第 五 
根 等 长 ， 比 第 一 根 稍 长 ;第 三 和 第 四 根 等 长 ， 比 第 二 根 稍 长 。 
线段 的 画 法 我 们 在 前 面 已 作 过 介绍 ， 即 先 定好 起 始点 调 
用 囊 F 457 画 出 ,再 定好 结束 点 调用 吊 忆 53A 连结 始点 和 终点 
形成 线段 5 


见 程序 G 下 3310 清 单 。 
GBP3310 
0D66- aS FE LDAR SF6 
0 了 扎 己 一 于 急 D0 亡 PM” 村 才 DDD 
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大 世 


F 呈 


0 


ie 


0D 


DDD 


蕊 0 所 二 
委 030C 
村 非 0 志 
赤 0DDZF 
村 塌 00 
昔 F 人 过 

《 夸 F 户 C3 下 
委 FC 

村 0DZ7F 
车 FD  . 
莹 03S0C 


并 条 0 


攻 0DS0 
昔 F 乙 


半 非 20 
盔 F 全 . 

委 0DDSd4 
林村 D 寺 

## 委 Q0 

坦 广 

夺 FC 

莹 0DADO 
功 记 站 

林 普 和 
《等 FC) 站 
区 FC 

车 DDAD 
条 FD 

村 和 划 和 0 


等 QDFE 
苇 厂 呈 


0DB+ 一 CS 01 CMP 并非 D 1 
0DBE 一 FO 17 BEAQ 和 OODCF 
0DBS 一 AR2 0D1 LDX 并 七 01L 
0DBPA 一 20 30 F7 写 民 #FZ3S0 
0DBD-- 上 SF 忆 LDRA 等 FS 
0DBF 一 卢 后 F 忆 LDX 去 = 
0DC1 一 AO 00 LDY  。 # 委 0 但 
0DCsS 一 20 11 Fd4 SR 区 Fll 
0DCE-- AS 00 L_Dp 村 莫 00 
0DCS~ 所 后 工 启 LDX 等 1 
0DCD 一 Ad4 1B LDY 千 1 已 
0DDCZC 一 20 SD FE6 JSR ” 和 FESD 
0DDCF-- AS FE LDA 要 FE 
0DD1l-- SS FS STARA ” 钙 
0DDxXs-- AS FF LDAN 圭 FF 
0DDS 一 BBS FS STA，” 考 FS 
0DD7 一 AS 00 LDA “村 千 00 
0DDS-- SBS FS STPA 车 FS 
DDDB-- A2 01 本 村 乾 01 
0DDD-- 20 30 F7 JSR 区 F73S0 
0DE0-~- .AS FF LDAN 示 FF 
QDE2-- 户 后 FE LDX 对 FE 
0DDEd 一 0 00 LDY 村 和 非 D0 
0DE 一 20 11 Fd+ JSR 要 Fd411 
0DES 一 AS 00- LDAN  # 和 00 
0DEB 一 所 GE 工具 LDx 塌 1 后 - 
0DED-- 所 4 1B LDY 竹 1 日 
0DEF 一 20 5SD F56 JSR 大 FESD 
0DF2 一 上 SS _FG LDA ”和 村 FE 
0DF: 六 BBS Fd STRA 雪 F 填 
QDFE 一 AD 0D 03 LDA 和 030D 
0DFS- SBS FE6 STAR 和 攻 FE 
0DFB- 4C d41 0B JMP 和 0B41 
程序 说 明 : 


$0D6C 一 $0D93， 算 出 最 后 一 个 位 元 组 。 
$0D94 一 $0DB 1， 存 入 造型 表 。 
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$0DB2 一 $0DCE:， 清 除 光 标 造 型 。 
$0DCF 一 $0PEF1， 显 示 光 标 造型 。 
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和 八 、 加 入 造型 表 

见 程序 GP 3311 清 单 。 
0DFE- ”20 5e FC JSR ” 针 CS58 
0E01-- 20 2F FB JSR 4FB2F 
0E04- 、 A2 00 LDX ， 4#l 条 00 
0E0E- “ BD Cl 13 LDA 要 13C1，,X 
0E09- ”20 ED FD JSR 。” $FDED: 
0E0C-  EB INX 
0E0D- ” -E0 `1D CPX HS1D 
-0OE0OF-  D0 FS BNE 东 0E06. 
0E11- 20 0C FD JSR ”要 FDQOC 
0E14- C9 CE CMRP  。 寺 #CE 
0E16- ”Do 0x BNE ”和 革 0E1B 
DOE198- ”4C 5sSE .0OE JMP 条 0ESE 
0E1B- Cg9 D9 CMP # 寺 DS 
"0OE1D-  D0 F2 BNE 村 0E11 
0ELIF- ” AD 0B 03 LDA ”和 村 030B: 
0E22- C9 01 CMP HH 和 01 
0E24- ERA NOP 
0E2S- ERA NOP 
0E26- ”AD 00 60 LDA ”条 E000 
0E29-- .CD 01 60 CHMP 埋 E001 
0E2C- ”BO0 0x5 BCES 大 0OE31 
0E2E- ”ddC C6 0 JMP 得 09C6 
0ES1- ” F0 29 BEG ” 埋 0DESB 
0E33- 。 A9 60 LDA # 砷 60 
0E3SS- 65 B9 多 T 和 。” 碍 B9 
DES7 一 户 弓 “0 志 L DR 村 浊 0 二 
0Es9- -eeS Be STR 和 划 BB 
0E3SPB 一 RD 01 6Eb L 也 Dm 莫名 DOT 
0ESE- 19 CLC 
0ESF- 2 ROL 
0OE 车 0 一 久 0 0 二 BCC 塌 0E 斗 斗 


0DE 志 2 一 EE…BS5 工 H 夸 已 S 


0E:44- 19 CLC 

0E4S- 65 Be ADC 和 帮 BB 
:BE 手 7 一 6 BS - 急 T 入 七 BS 
0E49- 90 902 BEC 和 旧 OEdD 
DOEd4B-  EE BS INC 和 枚 B3 
0E4D~- 白 0 00 DY  # 才 00 
-DOE4F- AS FC LDA 和 非 FC 
0ES1- 91 Be STR  【《 非 EBy YY 
0 人 SS 一 考 旬 INY 

0ES4- :AS FD- LDRA 要 FED 
0ESE- 39 SEC2::: 
0ESZ7- …, E 邹 50 SBC ， 间 和 ED 
0ESs- “31 Be 写 TAN 【和 B 员 YY 
0ESB- ”dcC FS9 0F JMP 和 非 DFF 忆 
DESE- CE 01 5 DEC 村 E001 
0DE 后 1 一 和 351 05 JMP 。 非 0S31 
程序 说 明 :- 


$oDFE 一 -0Ei 是 否 存 入 造型 表 中 ? 

$0E14 一 $0EI1A:. 如 不 存 ， 转 节 0OE5E。 

$0 世 33 一 一 $ 拭 5D:， 计算 下 一 -造型 的 存放 地 址 ， 江 存 入 
目录 区 。 

在 造型 设计 时 如 按 入 Q 键 则 表示 结束 ， 返回 文本 态 , 显 

46P UT THIS SHAPE IN THE TABLE(Y No 

按 入 YY 或 N (不 必 问 车 )。 如 按 入 并 则 该 造型 存 入 表 中 ， 
根据 当前 位 置 指针 $FC、$FD 内 的 值 算出 下 一 个 造型 的 起 
始 位 置 ， 并 存 入 造型 表 目 录 区 的 特定 位 置 。 


第 五 节 造 型 删 除 - 
一 般 的 造型 设计 软件 没有 造型 删除 和 造型 内 插 的 功能 。 
这 不 仅 因为 删除 和 内 捅 造型 的 过 程 比较 复 杂 ， 还 因为 高 级 语 
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衣 的 内 存 搬移 速度 太 慢 ， 难 以 实现 对 整个 造型 表 内 容 的 前 后 


移动 。 


在 本 软件 中 我 们 设计 了 这 一 功能 ， 使 操作 者 能 够 任意 地 
从 造型 表 中 删除 一 个 造型 或 在 表 中 间 捅 入 一 个 造型 、 
造型 删除 ， 见 程序 GP3312 清 单 。 


已 户 十 本 1 之 
0E6d4 一 20 
DE67 一 20 
DE 扎 诊 一 户 忆 
0E 已 一 BD 
DECEF 一 20 
0E72 一 ES 
0E7Z3 一 ED 
0E7S 一 D0 
0OEZ~ 一 20 
0E7 捕 一 户 护 
0E7ZC 一 弓 S 
0E7ZE 一 扬 纪 
DOES0 一 SS 
0OESB2- 六 0 
0EB4 一 B1l 
0ES6 一 亡 乌 
0ESB9 一 F0 
0ESPA 一 29 
0ESC 一 S1 
0ESE 一 CC 吕 
0ESF 一 D0 
0E91 一 20 
0E9S4 一 20 
0OES9v7 一 户 S 
0E9S9S 一 ，、 F0 
0E9B- ”4C 
0ESE 一 AD 
0OEA1L 一 记忆 
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FC 


FB 


1 


_FD 


FD 


OE 


已 0- 


和 FCS8 
#FB2F : 
和 村 1SDE, X 
全 DED 


等 DODEAB 
等 0SSE 


昔 OF 二 | 


车 OEEC 
.-# 攻 ED 


压 卫 包 


车 S0 


车 B 纪 


切 DEBE 


区 昌 是 


梓 和 车 00Q 


《等 忆 人 ，Y 


靠 F 已 


条 FF 


并 等 已 0 
介 BS 
等 己 0 


竹 BS 
礁 DEDS 
非 弓 
半生 00 


《其 已 弓 ， 站 


= 


《 夸 已 B、、YY 


昔 广 己 


《车 BB) YY 
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让 E 
“g9F 


LA 
CHMIP 


BCC 
JRB- : 


IHMNC 
JSR 


JI- 
LDA” 


邹 下 后 


ST 户 : 


站 OO 户 : 
MOP 
HOP 
沾 4OP: 
LDY 


LDRA 


BE 
各 T 良 


( 答 BGTY 


0DEBQ…: 
莹 FE 
守 一 三 F 疡 
“ 址 FF 


等 广 已 


SSD 
“等 DOE 到 0 


千 FE， 


## 等 00 


《 厘 FE3 YY 


东 OF SF 


《 革 F 户 YY 


OFS0 一 


OF 二 2 一 
QFSd4 一 
OF SEE 一 
0FSS 一 
QF SP 一 
0FSC 一 
0F SF 一 
DF:0 一 
OF 斗 之 一 
DOF 寸 斗 一 
0F4S- 
DFd- 一 
DF 斗 所 一 
DFd:dC 一 
OFdE 一 
0Fd4F 一 
0FS1 一 
0FS4 一 


0F3 一 


0FSB-- 


0FsSD 一 
OFSF 一 
DOFG1-~ 
BF 后 3 
0F6S- 
问 F 它 二 一 
9FES-- 
DFEB 一 
OFG 和 一 
OFEF 一 
OFZ2 一 
0DF ~4 一 
OF 后 一 
OF ” 弓 一 
0FZ 记 一 
OFZC 一 


和 


OF 


OF 


名 0 


0 纪 


ED 


的 


《大 F 肌 ) ， Y 


《各 F 疝 ) ，Y: 


生 60D1 
雪 DBSE 


5 

和 S51 

”有 杖 02 
习 千 BB) YY 
利和 灶 0D0 
飞 要 日 总 ， Y 
提 芍 0 本 
(SBB) ， 
”昌江 01 
《等 孔 纺 ) , 了 . 
车 S1 
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0FZE- ” D0 02 BE 旧 DFS2 


0Fe0- EE B9 INC 村 BS 
0FS2- :4C SB 0F JMP 在 0DFSB 
0Fes- ”20 CA 0E JSR 在 0ECA 
0FSe- 60 RTS 

程序 说 明 : 


$0E64 一 $0E79， 输 入 要 删除 的 造型 序号 。 

$0E7A 一 $0E9D:， 转换 成 十 六 进 制 。 

$0EB0 一 $ 0EC9， 取 得 造型 存 取 始 址 。 ， 

$0ECA 一 $oEEB， 调整 目录 区 有 关 指 针 。 

$0F28 一 $0F56:， 目录 区 指针 搬移 。 

$0F57 一 $0F88:， 造型 搬移 。 

首先 ， 在 文本 态 下 提问 : 

<NUMBER OF SHAPE?” 

要 求 输入 要 删除 的 造型 序号 ， 并 将 之 转换 成 十 六 进 制 存 
入 单元 $ 50。 如 果 输 入 序号 大 于 255, 则 必须 重新 输入 ;如果 
大 于 当前 造型 表 内 拥有 的 造型 数 ， 则 立即 返回 。 

造型 的 删除 分 两 个 部 分 : 一 是 目录 区 指针 的 调整 和 搬移 ， 
它 将 被 删除 造型 的 地 址 指针 之 后 直至 第 一 个 造型 开始 的 各 指 
针 值 进行 调 整 ， 并 全 部 前 移 两 个 单元 ， 以 覆盖 这 一 造型 的 地 
址 指针 ， 二 是 有 关 造 型 的 搬移 ， 它 将 被 删除 造型 之 后 直至 造 
型 表 尾 的 所 有 内 容 前 移 ， 以 覆盖 这 一 造型 。 


第 六 节 造型 内 揪 
和 造型 删除 类 似 ， 造 型 内 插 也 需要 对 造型 表 目 录 区 及 有 


关 造 型 的 存放 进行 调整 ， 以 便 揪 入 新 的 造型 。 设 计 这 一 功能 
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可 以 使 一 些 系 统 性 的 造型 更 加 完整 、 规 范 ， 使 用 更 加 方便 。 
为 了 加 快 软件 的 执行 速度 ， 简 化 软件 编号 。 我 们 在 这 一 

程序 段 片 加 入 一 个 有 效 的 技巧 ， 这 就 是 将 造型 直接 加 到 造型 

表 尾 ， 而 只 调整 目录 区 的 结构 ， 见 程序 GT 3313 清 单 。 


GPSS1S 
0FS9 一 C9 _BS CHMP 村 划 BS 
0DFSB-- D0 03 BHNE 夸 QFS0 
0FBD-~- 4C 5654 DOE JMP 莫 0 巨 后 二 
0F90-~- C53 BE CHMP 村 莫 B5 
0F9S2-- FDO 03 BEG 旧 0 扬 S7 
0F9S4-- C EB 10 JMiP 坦 10EB 
0FS7 一 20 SB FC JSR 坦 FC5SB 
0 户 乌 卢 一 20 2F FB JSR 条 FB2F 
OFSD- AR2 00 LDX 村 昔 00 。 
OFSF 一 BD DE 13 LDPR 等 1SDE,X 
0F 户 2 一 20 ED FD SR 葵 FDED 
FDAS 一 ES INMNX  。 
OFRmE 一 E0 11 CPX 村 等 1 1 
OFRAS-- D0 FS BMNE 等 OFSF 
0FRANRA 一 20 GEGF FD JSR 夫 FDEF 
0FRD-- 请 2 00 LDYx 村 车 00 
QUFRAF 一 EBD 00 02 L_DD 划 0200 、 六 
nFR2Z-- CS SD CHMiP 并 划 SBD 
DF- 吕 车 一 FO 0 人 乌 BEG 条 DFBF 
0FBE 一 23 7F 户 ND 并 等 PZF 
0FRS-- SD 00 02 ST 户 苗 0200, X 
OFBR ES INX 
DOFBC~- 二 CAF 0F JMP 等 OFAF 
DOFBF 一 EO 00 CPPX 村 筷 00 
OFC1-- D0 03 BINE 等 OFCE 
DFCS-- 4C 937 0F JMP 和 旧 OFS7 
0FCE 一 扬 纯 00 LDP 村 告 00 
0FCe 一 纪 SBS 纺 T 语 多 BS 


QF 伺 诊 一 六 张 0 过 LDA 村 等 0 忆 
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TDD 
记 7 


.2 10 


并 等 00 
飞车 BO Y 


和 0 


“ 苦 已 已， 站 
间 间 0 1 

\ 午 BS) YY 
间 委 0 
《等 中 全 YY 
生 S1 

非 症 0 

千 10 忆 1 
靠 1 02A 

汪 S0 


车 已 己 
并 世 扎 0 
并 靠 00 
非 卫 包 
村 等 00 
寺 FE 


秒 FF 


共和 BBS ,YY 
等 OBSE 
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程序 说 明 : 

$ 0F97 一 目 0oF AC， 输入 内 插 序 号 。 

$oFAD 一 $0FD7:， 转换 成 十 天 \ 进 制 。 

$9FF1 一 $0FF5， 建立 内 搬 标 志 。 

$1003 一 中 1067， 目录 区 调整 。 

程序 GP 3313 首先 要 求 用 户 输入 内 插 的 序号 ， 并 将 之 转 
换 成 十 六 进 制 存 入 单元 $ 50， 然 后 建立 好 内 插 状 态 的 标志 ， 
转向 造型 建立 程序 。 

待 造 型 结束 后 ， 对 造型 表 目录 区 内 容 进行 调整 ， 将 内 插 
造型 的 存放 地 址 指针 插入 特定 的 位 置 。 


第 七 节 图 形 设 计 


当 建立 好 一 个 造型 表 后 ， 通 过 对 表 中 各 造型 的 旋转 、 放 
大 、 移 动 等 手段 设计 出 各 种 各 样 的 图 形 ， 这 就 是 图 形 设计 功 
能 的 目的 。 

设计 好 的 图 形 可 以 用 : 

BSAV 下 《文件 名 >,， A$2000， 工 $2000， 
指令 作为 二 进 制 资料 形式 存 入 磁盘 ， 以 后 可 随时 调 出 使 用 。 

一 、 造 型 的 显示 、 放 大 和 旋转 

见 程序 GP 3314 清 单 。 


GPS3S14 
106B- 20 5e FC JSR 。 砷 FCSe 
106E- ”20 2F-FB JSR 。 帮 FB2F 
1071- ApA2 00 LDX  。 # 告 00 


1073- BFO135 LDA 争 1S5F0,X 
1076- ”20 ED.FD JSR 。 $FDED 
1079-- E8 INX 
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1 
FD 


“FD 


F 
FE 
所 0 


0S 


FD 


1 


并 塌 二 扎 

昔 107 
村 莫 00 

划 1SSF ,区 
千 FDED 


5195 


上 0 伍 扎 一 


0OCF 一 


TBDit 一 
10Ds 一 
1DDS 一 


上 UDP 一 


Lopc- 
10DE- 
10E1L-” 、 


10E3S-- 
TUE 一 
10 医 7 一 


10E9-- 


“OOEB 一 
10ED-- 
10EF 一 
1Q0F1-- 
10Fd 一 
10FE 一 
10FS 一 
10FDR 一 
10FC-- 
1D9FF 一 
1101 一 
1L110E 一 
11nS 一 
110S 一 
110P 一 
1L110C 一 
110E 一 
1111 一 
111 :4 一 
111E 一 
111S 一 
111pP 一 
111C 一 
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站 
ve 


10De- 


_Fd 


ww 


F2 


Fd4 


FE 


F 2 


F4 


F 所 
10 


F7 


F4 


六 己 
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117~+ 一 怠 纪 0 车 RD 林 革 0 十 


1173- 8S5 FF STA ”SFF 
1175- Ac FE LDX.， ”对 FE 
1177- ”20 30 Fz JSR 和 F730 
117R- Ag9 50 LDA ”村 和 3S0 
t17cC- ”A2 BC LEDX 和 和 BC 
ll17E- ”ARA0 09 LDY 4#S00 
11eo- 20 11 F4 JSsR ”全 411 
11835- Ac 1 LDX 。 、 参 1 所 
1195- ”Ad4 1B: LDY “对 1B 
1187- 85 FF LDA ”SFF 
1189- ”20 01 Fe6 JSR ”SF601 : 
ltiec- 4C BC 10 JMP ”条 10BC 
程序 说 明 : 


$106B 一 $108D:， 显示 提示 信息 。 
$108E 一 $10A3:， 设置 参量 初 值 。 
$10A4 一 $10A B:， 启动 第 二 高 分 辨 作 图 页 ， 颜 色 代 
码 为 $03。 | 
$10B4 一 $10B B: 设 定 造 型 表 始 址 为 $ 6000。 
$10BC 一 $l10 BE ， 接受 按 键 。 
$10BF 一 $1113:， 如 按键 为 D, 则 依 序 显示 各 造型 。 
$1114 一 $114 世 :如 按键 为 S ， 则 当前 造型 放大 。 
$114F 一 $118 正 :如 按键 为 R, 则 当前 造型 旋转 。 
进入 图 形 设 计 功能 后 ， 首 先 显示 按键 的 提示 信息 ; 
“DESIGN BY USING FOLLOWING KEYS: 
D 一 一 DISPLAY;S 一 一 SCALE,R 一 一 ROT,C 一 一 
CLEAR，T 一 一 ROT 本 
Q 一 一 CLEAR，E 一 一 END，] 一 一 UP，M 一 一 
DOWN，] 一 LEFT，K 一 一 RIGHT” 
说 明 图 形 操作 中 11 个 指令 键 的 功能 和 作用 ， 然 后 等 待 近 
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键 。 

如 按 D 键 则 在 屏幕 上 半 部 分 显示 出 当前 指针 所 指 的 
造型 ， 并 将 指针 加 1 。 如 当前 指针 指向 造型 表 尾 ， 则 又 重新 
从 表 头 开始 。 造 型 的 显示 位 置 是 固定 的 ,每 显示 一 个 造型 时 ， 
先 将 该 位 置 上 原 有 的 造型 清除 。 

如 按 S 键 ， 则 将 由 D 键 显示 出 来 的 造型 进行 放大 ， 放 大 
倍数 每 次 加 1。 由 于 屏幕 范围 等 的 影响 ， 当 放大 到 一 定 程 序 
时 造型 会 发 生变 形 。 

如 按 R 键 ， 则 将 由 D 键 显示 出 来 的 造型 进行 旋转 ， 旋 转 
角度 有 64 个 。 由 于 造型 可 旋转 产生 图 象 的 角度 由 放大 倍数 来 
决定 ， 因 此 当 放 大 倍数 小 于 5 时 ， 某 些 角度 不 产生 图 象 。 继 
续 按 R 键 至 一 定 角度 时 就 可 产生 。 

当 用 D 键 显示 出 一 个 造型 后 ， 可 任意 进行 旋转 和 放大 。 

二 、 造 型 的 移动 、 清 除 


见 程序 GP3315。 

GPS315S 
1 二 SF 一 仁 马 计 二 CHMP 林 非 志 本 一 
11951 一 D0 1 纪 BhE 考 1 TAB 
1 上 SS 一 dcC SEE 10 JMIP 等 10BE 
1196c- 'AEFE LDX ”和 刍 FE 
1+9e- ”20 350 F7 JSR ”和 F730 
119B- ”AS FA LDA 人 FA 
TSD 一 及 后 三 名 LDX 厘 F 弓 
11SF-  A4 FS3 LDY ”要 F3 
1 1LRA1L 一 20 11 FF 十 JSR 塌 广 斗 二 1 
工 有 十 一 户 6 1 工 语 LD% 昔 二 月 
TI 户 扣 一 疹 寸 工 悍 LDY 臣 1 卫 
工 虐 诊所 一 RS FF LDPRA 世 FF 
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11 
Fe 


11 
F 扣 


10 


工 | 
Fe 


313 


六 后 


11: 


;11 
_F6. 


上 | 


11. 


3 
人 
了 
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124B- ”4c 6E 二 JMP 要 116E 
124E- Co9 CS CMP  ”# 人 CS 
1250- ” D0 03 BNE .和 12S55 
12S2- 4C 3E 08 JMP 。 划 093SE 
12SSs- ”20 2F FB JSR 。 $FB2F 
125e- ”20 0C FD JSR 4FD0C 
125B- .APA9- 00 LDA .村 00 
12S5D- “80 50 CO STA “SC050 
1260- ”8BD:S2 5C0 STA :和 C052 
1265- ”8D:S55 C0 STARA SC055S 
1266- ”8D 57 C0 STA ”4C0Ss7 
1269- ”4C BC 10 JMP 要 10 
126C- 4C 6E 11 JMP 多 11 


程序 说 明 ， 

书 118F 一 $1195:， 如 按键 为 C， 则 清除 全 屏幕 。 

$11AB 一 $11CE:， 如 按键 为 I , 则 造型 上 移 。 

$11CF 一 $11EE， 如 按键 为 M， 则 造型 下 移 。 

$11EEF 一 $1212:，， 如 按键 为 J， 则 造型 左 移 。 

$1213 一 $1239: 如 按键 为 K ， 则 造型 右 移 。 

$123A 一 $1246: 如 按键 为 Q， 则 清除 当前 造型 。 

$1247 一 让 124D:， “如 按键 为 了 , 则 造型 旋转 , 不 清除 
原 造型 。 一 

$124 下 一 忆 1254: 如 按键 为 下 ， 则 退出 。 

$1255 一 $126E: 显示 提示 信息 后 返回 。 

当 一 个 造型 旋转 、 放 大 到 合适 的 程度 时 ， 即 可 通过 按键 
移动 这 个 造型 ， 以 便 构造 出 由 若干 个 造型 组 成 的 用 户 所 需要 
的 图 形 。 造 型 在 移动 过 程 中 可 以 清除 ， 但 不 能 放大 和 旋转 。 

如 果 操 作者 按 入 一 个 非 指令 键 ， 则 转 为 文本 状态 显示 
前 述 的 提示 信息 。 按 入 任意 一 键 后 返回 图 象 页 ， 屏 幕 信 息 不 
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江 
1 
O 〇 
1 


第 八 节 资 料 表 


软件 的 最 后 一 部 分 为 资料 表 ， 是 程序 在 运行 过 程 中 所 需 
要 的 参数 、 指 令 和 提示 信息 等 ， 由 程序 自动 取 用 ， 见 程序 
GP3316 清 单 。 


1300- C2 CC CR C1L C4 D3 C8 C1L 
1308- D0 C5 BO 8D C5 .CE D4 C5 
1310- D2 AO D4 C8 C5 RARO CE C1 
1318- CD C5 AD 00. 01 00. 04 00 
1320- 3EB 24 2D 36 04 00 00 D3 
1328- C8 C1L DO C5 AO D4 C1 'C2 
1330- CC C5 AO C9 D3 AO C6 D5 
1338- CC CC 8D 8D C2 D3 C1 D6 
1340- C5 CE D5 CD C2 C5 D2 AO 
1348- CF C6 ARO D3 C8 C1 DO 5C5 
1350- D3 AO C9 CE AO D4 C1 C2 
1358- CC c5 BF AM C5 CE D4 CS5 
1360- D2 AO C3 CEF CR D2 C4 C9 
1368- CE C1 D4 C5 AO AO AO CD 
1370- CE D6 C5 AO DO CC CE D4 
1378- AO D7 C9 D4 C8 AO C6 CRF 
1380- CC CC CR D7 C9 CE C7 AO 
1388- CB C5 D9 D3 BA 8D 8D C9 
1390- AD D5.D0.AC CD AD C4 CF 
1398- D7 CE AC CA AD CC C5 C6 
JL13A0- D4 AC CB AD D2 C9 C7 C8 
13A8- D4 8D 8D. DO0 AD DO0 CC CF 
13B0- D4 AC C5 AD C5 D2 C1 D3 
13B8- C5 AC D1 AD D1 D5 C9 D4 
13C0- 8D D0 D5 D4 AO D4 C3 C9 
13C8- D3 AMO D3 C8 C1 D0 C5 AO 
13D0- C9 CE AO D4 C8 C5 AO D4 
13D8- C1 C2 CC C5 BR AO CE D5 
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13E0- CD. C2 C5 D2 AO CF C6 ARO 
13E8-.D3 ECG C1 D0 Cc5 BE AO 00 
13F0- 04 05 13.09 .07 .0 功 20 02 
13F8- 19 20 15 13 09 0E. 07 20 
1490- .06 OFE 0C 0C 0F-17 .09 0E 
1408=~ 07 20 0B 05 19 13 3 8D 

441 人- -8D CU :ABC4 C9 D3.D0. CC 
1418- C1 D9 RARC DB3: AD D3 C3 Cl 
1420- CC C5 AC D2 AD D2 GCF D4 
1428- AC C3 AD C3 CC C5.C1、D2 
1430- AC.D4-RA 丰 D2 CE-D4 285 8D 
1433- D1L ADIC 于 CCCSIC1 32 AC 
1440- CS AD CS5 CE C4 AMCG 00 00 ! 
1448- 00 00 00 00 00 00 00 00 


本 软件 占用 囊 808 一 $ 1445 共 3K 多 的 内 存 空间 ， 另 外 还 
有 一 幅 位 于 第 一 高 分 辩 作 图 页 上 的 图 形 资 料 SHAPEO。 
使 用 时 先 ; BLOAD( 程 序 和 名 ;, 待 程序 调 入 内 存 并 出 现 提示 
符 时 ， 使 用 & 启动 。. 以 后 如 程序 运行 出 现 中 断 而 返回 提示 符 
时 都 可 用 & 重 新 启动 ， 但 内 存 中 已 建立 好 的 造型 表 和 不 再 有 效 
(在 了 & 启 动 前 可 使 用 键盘 指令 将 造型 表 存 信 磁盘 ,以 后 用 功能 
1 调 入 ) 。 

任何 一 个 造型 表 建 立 的 第 一 步 都 是 “造型 表 初 置 %。 造 型 
表 初 置 确定 它 能 容纳 的 造型 数目 “由 于 对 十进制 输入 码 的 转 
换 是 通过 直接 调用 ROM 子 程序 来 实现 的 ， 因 此 输入 数值 时 
如 识 检 字 二 地 数字 字 格 丰 直 模 各 本 孝 全 吐出 全 下 

行 ), 并 对 有 关 参 数 进行 初 值 化 。 

下 面 对 造 型 建立 和 图 形 设计 中 的 按键 指令 加 以 介绍 : 
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一 、 造 型 建立 ， 
: 光 点 向 下 移动 一 格 ; 

2 光 点 向 左 移动 一 格 

: 光 点 向 右 移动 一 格 ; 

:在 光 点 位 置 上 绘 点 ; 

结束 造型。 

二 、 图 形 设 计 

:， 造型 向 上 移动 ， 步 长 为 2 ， 下 同 ; 

: 造型 向 下 移动 ; ， 

: 造型 向 左 移动 ; 

: 造型 向 右 移动 ; 

: 在 屏幕 上 部 显示 当前 指针 所 指 的 造型 ， 并 将 指针 


人 


口 关 二 三 二 


加 13 
“ S : 将 显示 的 造型 放大 ， 放 大 人 情 数 每 次 加 1 

“ R :将 显示 的 造型 旋转 ， 旋 转角 度 64 个 ; 

“了 T: 旋转 造型 ， 但 不 清除 原来 的 显示 ， 使 旋转 留 下 轨 


. Q : 清除 当前 显示 的 造型 

、" 巨 : 返回 程序 清单 。 

至 此 ， 造型 设计 的 机 器 语言 程序 已 经 介绍 完了 。 由 于 程 
序 中 设计 了 造型 删除 、 内 插 、 图 形 设计 等 功能 ， 使 用 比较 方 
便 ， 特 别 是 图 形 设计 功能 可 以 解决 许多 较 复 杂 的 绘图 问题 ， 
值得 读者 一 试 。 
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第 四 章 ”动画 设计 及 图 形 的 


合并 、 剪 辑 


前 面 几 章 已 经 介绍 过 ， 机 器 语言 绘图 有 许多 高 级 语言 
没有 的 优点 ， 其 中 一 个 就 是 动画 设计 。 由 天 机 器 语言 执行 速 
度 很 快 ， 图 形 的 清除 、 计 算 和 再 绘画 过 程 可 以 在 很 短 的 时 间 
内 完成 。 这 样 ， 动 画 的 效果 就 比较 好 。 


第 一 节 ” 简单 动画 设 计 


GP3401 是 一 个 天方 形 框 的 简单 BASIC 程 序 。 


10 “HGR2 

20 FOR X = 255 TO 20 STEP - 5 

30 “HCOLOR= 3: GOSUB 60 

40 “HCOLOR= 0: GOSUB 60 

50 “NEXT : END 

60 ”HPLOT X,100 TO X,120: HPLOT X 
,120 TO X - 20,120 

70 HPLOT X - 20,120 TO X - 20,10 
0: HPLOT X - 20,100 TO X,100 

80 ”RETURN 


由 于 其 执行 速度 较 慢 ,方形 框 的 移动 速度 也 不 快 , 是 存在 明 
显 的 闪 动 现象 。 把 这 个 程序 翻译 成 机 器 语言 , 见 程序 GP3402。 


0300- 20 D8 FE3 A9 FF 385 00 AS5 
0308- 00 C9 14 DO 01 60 AZ 03 
0310- 20 FO F6 20 28 03 A2 00 
0318- 20 F0O F6 30 28 03 AS5S 00 
0320- 338 E9 05 5 00 4C 07 03 
0328- A6 00 AU 00 A9 64 20 57 
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0330- PEP4 A2 00 A5 00 AO 78 2320 

0338- 3A F5 A2 00 A5 00 38 BEB9 

0340- 14 AO 78 3230 3A F5 AS 00 

0348- 38 E9 14 A2 00 AO 64 20 

0350- 3A FEB5 A5 00 A2 00 AO 64 

0358- 20 3A FE5 60 

执行 程序 GP 3402 ， 方 框 的 移动 速度 就 相当 快 ， 而 且 非 
常 圆滑 。 如 果 绘 画 的 图 形 更 复杂 一 些 ， 那 么 这 两 种 语言 在 动 
画 效 果 上 的 差别 就 更 加 明显 。 

因此 ， 使 用 机 器 语言 来 实现 一 般 的 动画 设计 可 以 达到 令 
人 满意 的 效果 。 不 过 编程 时 应 该 注意 一 点 ;绘画 图 形 和 清除 
图 形 的 过 程 是 完全 一 致 的 ， 不 过 清除 图 形 时 使 用 底 色 而 已 。 
因而 可 以 先 设置 好 颜色 ， 再 调用 同一 个 子 程序 来 绘画 或 清除 
图 形 。 这 样 可 以 使 程序 更 加 简练 。 

以 上 我 们 简单 介绍 了 直接 使 用 机 器 语言 进行 动画 设计 的 
方法 ， 它 的 原理 是 ， 先 画 出 一 个 图 形 ， 再 使 用 底 色 在 同一 位 
置 上 画 这 个 图 形 〈 即 清除 ); 按 动画 要 求 改变 坐标 值 ， 重 复 以 上 
过 程 。 

如 果 图 形 比较 复杂 ， 要 求 移 动 速度 更 快 ， 就 必须 使 用 页 
面 轮换 、 造 型 表 等 技巧 。 


第 二 节 页 面 轮换 


3 绘画 一 幅 比较 复杂 的 图 形 需 要 一 定 的 时 间 ， 因 而 当 清 除 
这 个 图 形 时 ， 其 开始 部 分 在 屏幕 上 停留 的 时 间 最 长 ， 结 束 部 
分 在 屏幕 上 停留 的 时 间 最 短 。 这 种 前 后 停留 的 时 间 差 异 使 图 
形 失去 了 整体 的 观看 效果 , 而 且 使 人 感觉 到 绘图 过 程 的 缓慢 ， 
特别 是 破坏 了 图 形 整 体 的 动态 形象 。 

使 用 页 面 轮换 可 以 较 好 地 解决 这 个 问题 ， 其 基本 技巧 是 
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控制 显示 页 面 和 绘画 页 面 ， 即 先 在 绘画 页 上 而 好 一 幅 图 形 ， 
使 用 软体 开关 显示 这 一 页 面 , 同时 在 另 一 页 上 再 画 一 个 图 形 ; 
画 好 以 后 再 显示 。 这 样 ， 每 一 幅 图 形 在 屏幕 上 出 现时 都 是 完 
整 的 ， 其 动态 变化 也 很 突出 。 

绘画 页 面 是 零 页 指针 忆 E'\6 控 制 的 。 当 书 下 6 的 值 为 
$26 时 为 第 一 页 面 ; 当 $ 正 6 的 值 为 忆 40 时 ， 为 第 二 页 面 : 当 
$ 正 6 的 值 为 $60 时 , 为 第 三 页 面 , 依次 类 推 虽然 我 们 通常 
只 使 用 书 2000 一 书 3F FF 的 第 一 页 面 和 $4000 一 $5 FFF 
的 第 二 页 面 , 但 作为 给 图 实际 上 还 可 以 使 用 6000 一 $7FFF 
的 第 三 页 面 ，$ 忆 8000 一 书 9FFE 的 第 四 页 面 和 : 书 A000 一 
$B FEEF 的 第 五 页 面 。 其 中 第 四 、 第 五 页 面 占 据 了 D O S 
存 贮 区 域 。 

当前 要 显示 的 页 面 由 软 开 关 控 制 。 这 样 ， 画 好 的 图 形 就 
能 完整 地 显示 出 来 而 不 致 被 清除 ; 

AD54C0 LDA$C0 54 显示 第 一 页 面 

AD 55 C0 LDAL$C0 55 显示 第 二 页 面 

GP 3403 是 一 个 使 用 页 面 轮换 来 绘图 的 程序 。 


SP3Sd40 

03500-~- 20 Se FC， .JSR- $FECS59 
0303- 20 E2 FS JSR ” $FSE2 
0 才 0 扣 一 20 De FS JSR 。” 蓝 FSDB 
0350S-- A2 0 LDX  。 ## 委 03 
030E- 20 F0 F6 JSR. ”FEF0 
030E-- RS 0 LDA 。 # 千 03 
03510 一 SS 00 STAR 驮 00 
0312- 上 S 20 七 DA ## 千 20 
03514 一 ss E6E STR 塌 E6E 
03516- 20 29 03 JSR  。 委 03S529 
0319-- AD S4 C0 LDA 等 COS 中 
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0 配 1C 一 
口 瑟 1E 一 
0 一 


0 之 瑟 一 


昌 2<S 一 


0z2C-: 


LE 一 
门 -3 民 广 一 
心 呈 一 


0 瑟瑟 2 一 …- 


0 与 34 一 


033Es 


0 了 7~ 
0 马 3 所 一 
SB 一 
日 羡 3C 一 


0353D 一 


0S3d40 一 


0 本 43325 
034S- 


0346 一 
-二 4 吕 一 
Dd 包 一 . 
0 二 一 


03dC--: 


034E 一 


035S3- 
DSSS- 
0ss6 一 
03SSS 一 
03S9 一 
0SSB 一 
03SC 一 
03S5SE 一 
0360-- 
0 后 3S 一 


各 


E6 


2 
三 王 


2 


0 
C0 


站 
2 可 
zB 


0 
FF 


Fs 


FS 


半 非 十 D 


非 E 扎 


坦 032 过 纪 


故 亡 05S 
知 0] 冯 1 之 
午 记 3 记忆 
并 非 了 FS 


非 DD 


并 靠 6 吕 
村 非 忆 语 


非 0 0U- 


: 千 D3d4 


和 号 0 站 


莫 F4 瑟 了 


村 碍 忆 户 
厚 00 


并 二 7 号. 


莱 00: 


村 划 00 ， 
二 FA 


: 间 生 SS 后 
车 00 


HS7e 


和 东 00 


- 料 些 00 
和 FSSA 


林 半 与 同 


6529 


0S 扣 S 一 1S CCLC 


0 后 后 一 ES 00 ADC 

036EB 一 AS TRAY 

03SE9 一 AS 7B 蕊 了 D 记 

036EB-- 38 SEC 

0 后 允 一 ES 00 SBC 

03S6GE 一 A2 00 LDX 

035Z70 一 20 38 FS JSR 

0ES7S 一 扬 纺 SA -DA 

037S 一 38 SEC 

0 了 3S76E 一 ES 00 “SBC 
037B- 所 已 TAY 

0357Z9-- AS 7B LDp 

03S7B 一 38 SEC 
03S7PC--- ES 00 -SBC 

03SZE-- A2 00 LDX- 
03e80-- 20 3RA 下 S JSR 
83SS 一 户 .00 <“ ,上 DA: 
03S8S- 1 CLC 

03B6 一 ES 03. ADC 

03SS-- SS 00 ST 户 

03SA 一 局 0 RTS 
程序 说 明 ， 


书 0300 一 书 0308: 清除 各 个 页 面 。 
$$0309 一 $030D ,设置 颜色 为 白 〈03 )。 
$0312 一 书 0318: 绘画 第 一 页 面 。 
$0319 一 $031 B ， 显 示 第 一 页 面 。 
书 031C 一 书 0322: 绘画 第 二 页 面 。 
$0323 一 $0325: 显示 第 二 页 面 。 


$03 29 一 $032 B : 清除 绘画 页 。 
$032 C 一 书 0342: 画 出 起 始点 。 
$0343 一 书 0382: 画 出 各 边 。 
叫 0383 一 中 0389， 放 大 。 
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基 00 
##j 二 PS 


生 00 
关 旧 00 
理 FSS 
间 估 SA 


等 00 
关 埋 7 
系 00 
# 委 00 - 
和 厘 FS 
00 


村 千 0 与 
夸 00 


程序 GP 3403 的 屏幕 效果 是 ， 在 高 分 辩 作 图 页 上 画 出 一 
个 小 方 框 ， 并 且 不 断 放 大 以 至 充满 屏幕 。 它 利用 R O M 中 的 
画 点 、 画 线 子 程序 在 显示 一 个 屏幕 的 同时 ， 在 另 一 个 屏幕 上 
画 出 一 个 方 框 ， 然 后 显示 画 好 的 页 面 ， 同 时 在 原来 的 显示 页 
面 上 画 一 个 放大 的 方 框 。 这 样 ， 显 示 和 绘画 总 是 在 不 同 的 页 
面 上 进行 ， 两 者 不 断 互 换 ， 形 成 方 框 放 大 的 动画 状态 。 

程序 中 书 03 29 处 使 用 了 R O M 中 的 一 个 子 程序 ， 其 始 地 
址 是 $$F 3 F 2 ,功能 是 清除 绘画 页 面 为 黑色 。 当 书 忆 6 中 的 值 
为 $20 时 ,绘画 页 面 为 第 一 页 , 20F 2 F3 指 令 清 除 第 一 页 面 。 
当 书 忆 6 中 的 值 为 上 40 时 , 绘画 页 面 是 第 二 页 ,20F 2 F 3 指令 
清除 第 二 页 面 。 


第 三节 造型 动画 


在 本 篇 的 前 面 几 章 已 经 介绍 了 造型 和 造型 表 的 有 关 问 题 ， 
并 且 指 出 了 使 用 造型 进行 动画 设计 的 优点 。 

实际 上 ， 由 于 造型 是 一 张 已 经 设计 好 的 矢量 表 ， 调 用 造 
型 是 针对 这 个 造型 整体 而 言 的， 因此 显示 或 清除 的 速度 比较 
快 ， 动 画 效果 就 比较 好 。 见 程序 G P 3404 清 单 。 


GPZS404 
n300- ”Ae 44 LDO 村 千 寺 车 
0502- 、B55 E8 GTA 非 巨 吕 
0304 一 AP9 0 LO 全 村 关门 
n035nDG-~- SS5 E9 GTA ”4 失 9 
0S508 一 20 DS FS JSR 非 F35DB 
0350B- mAm2 035 LDX 和 fj 东 03 
03S0D 一 20 F0 FG JSR SFEF0 
0310- AS 01 LDA # 生 01 
0312- SBS E7 STPN 和 寺 E7 
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0514-，、 AR9 RN -了 上 一 间 非 和 所 
0316- SBS 00， STR 车 00. 
0318- 20 2C 03. JSR 得 032C 
0 二 1 孔 一 20 2C 03 “JSR 厚 02P 
051LE- C6 00 DEC ,， 栗 00 
0Ds520- 55 00 LDA 对 00 

0322- CS3 0 上 CMP 村 和 非 0 扩 
0352d4- ” F90 03， ， :BE& 本 
032c6- :Cl1805 JJhP , 夺 018 
03523- ”JE 14 .03 JMP 二 本 0314 
DSS2C- mm2, 01. 巧 BX” 间 和 01 
032E-， 20 30 Fz JSR 要 F730 “ 
035351=- ”RN2 6d4 LDX # 坦 6E 寺 - 

03s3S-， RhR0 00 上 DY- 砷 环 00 
0335S- ”AS 08 LDA 查 00 
03537-- 20 11 Fd+ JSR ”和 轩 411 
033P- po9 00 LDO # 靠 00 
0353C- RE 站 和 和 全 七 区 1 
033SE- Phi+1lB LDY 和 苇 1B 

03d406-- 20 5S5D F6 JSR 莫 F6SD 
0343- 60 RTS  ， 
0344- .01 00 04. 00 ，. 机 

“3482 75 36 2E 2D:2D OE 76 76 
02350-:: 了 6; 3B: 0PI 生 8 .GBPw18 OP 18 
0358- 3B8. .3PF 37 398.36.3P.27 :24 
0360- 24 3P 3PF :PE7 1 1B 27 0D- 
0368- 18 2C 20 0D 18 2C 28 2D. 
0370- 2D 24 6C 6C 00 


上 


书 0300 一 书 0307:; 设 定 造型 表 始 址 为 $0344。 

书 0308 一 030F :启动 第 二 高 分 辩 作 图 页 , 设 定 颜色 为 
扬 。 

$0310 一 $0313: 造型 放大 倍数 为 1 。 
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$0314 一 $0317: 显示 起 始 位 置 的 纵 坐 标 。 

$0318 一 $031A ， 显 示 造 型 。 

$0318 一 $031D :, 清除 造型 。 

$031 正 一 书 0325: 移动 。 

$032C 一 0330:， 设 定 造型 指针 。 

和 0331 一 $0339:， 确定 显示 位 置 。 

$033A 一 $0342: 显示 或 清除 造型 。 

GP3404 是 一 个 使 用 造型 来 进行 动画 设计 的 简单 程序 ， 
执行 这 个 程序 ， 屏 幕 上 就 会 出 现 一 个 飞机 模型 ， 这 个 模型 不 
断 地 从 下 往 上 移动 ， 每 移动 一 步 前 先 清除 原 造 型 。 

程序 中 使 用 了 这 样 一 个 技巧 ， 即 显示 造型 和 清除 造型 是 
通过 同一 个 也 程序 〈 忆 32C ) 实现 苗 .。 这 是 因为 使 用 了 X D- 
RAW ($F65D ) 指令 ， 程 序 开始 执行 时 屏幕 被 清除 ， 这 
时 XDR AW 指 令 取 底 色 的 补 色 在 指定 位 置 上 显示 出 造型 图 
案 ， 继 续 调 用 XDRAW， 由 于 位 置 没有 改变 ， 这 时 的 底 色 
是 刚刚 用 来 显示 造型 的 颜色 ,， 它 的 补 色 是 图 形 之 外 的 屏幕 颜 
色 ， 用 这 一 颜色 显示 这 个 造型 实际 上 就 是 将 原来 的 显示 清除 
了 。 因 而 程序 的 执行 表现 出 边 移动 边 清除 的 动态 效果 。 


第 四 节 图形 的 合并 


当 绘 制 好 若干 个 图 形 后 ， 有 时 我 们 需要 把 其 中 几 个 合 : 

到 同一 作 图 页 上 成 为 一 幅 图 形 。 
怎样 进行 这 种 合并 呢 ? 机 器 语言 执行 速度 快 的 特点 为 我 
们 提供 了 极 大 的 方便 ,使 这 种 合并 能 够 在 很 短 的 时 间 内 完成 。 
现 假设 有 名 为 PIC1 和 PIC2 的 两 个 二 进 制 图 形 文件 ， 
分 别 是 内 半径 为 20 和 60 的 两 个 圆 环 图 (十 绘画 好 以 后 用 B S- 
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AVE (文件 名 >，A 书 2000，L 书 2000 或 BSAVE 《文件 
名 >,A $4000,;， 工 $2000 指 令 存 入 磁盘 的 )。 要 把 它们 合并 在 
一 个 屏幕 上 可 使 用 下 列 步 又; 

@ 把 第 一 个 图 形 调 入 第 一 高 分 辨 作 图 页 ，BLOAD 
PIC1，Af$2000， 

@) 把 第 二 个 图 形 调 六 第 二 高 分 辩 作 图 页 ; BLOAD 
PIC 2，Af$40002 ， ， 

@@ 运行 合并 程序 。 这 样 就 把 它们 合并 到 第 一 

使 用 软 开 关 (P OK 瑟 一 16297 ,0: ok 0: 
POKE 一 16304，0:，POKE 一 16300，0) 即 可 看 到 合并 
后 的 图 形 ， 如 图 3. 4 扶 示 。 


3.4 


合并 见 程序 GP 3405 清 单 。 
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0300- 
0302- 
0304 一 
0306- 一 


0.303--. 


030A-- 
030C- 
030E 一 
0310- 
0Q312 一 
已 314 一 
0315- 


03138-- 


0319- 
031B- 
031D- 
031F- 
0321- 
0323- 
0325- 
0300- 
0302- 
0304- 
0306- 
0303- 
030A-- 
030C- 
030BE- 
0310- 
031 二 - 
0333- 


0315--- 


0317 一 
9319 一 
031B 一 
9O31C 一 


BCC 
RS 
BRK 


($00) ， 于 


$9312， 
sna 
$SO1 
$01. 
#S40 
$S0312 


着 S0O0 
S00 

着 S$S40 
$O1 

着 SO00 

闫 SEE 
($S00),Y 
【3S00) ,Y 


$030A 
$01 
$OL 
#$60 
$SO030R 


GP3405 是 一 个 简单 的 机 器 语言 程序 ， 实际 上 也 就 是 一 
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个 内 存 搬移 程序 ,* 它 将 第 二 作 图 页 上 的 非 零 单元 搬 至 第 二 页 
的 相应 位 置 。 

如 果 要 合并 的 图 形 有 二 页 以 上 ， 可 以 先 按 上 述 步骤 合并 
第 一 和 第 二 页 ， 再 将 合并 后 的 第 二 页 与 第 三 页 合并 ， 以 此 类 
推 ， 最 后 把 多 页 图 形 并 在 一 个 页 面 上 。 


第 五 节 “图形 的 剪辑 


一 个 高 分 辨 作 图 页 上 多 人 画 就 介 用 前 刀 在 一 张 白 纸 上 曾 
给 - 样 ， 是 一 个 剪 、 修 、 整 的 过 程 。 基 于 这 一 原因 ， 我 
们 可 以 编写 出 一 个 相应 的 应 用 程序 ， 且 程序 G.P 3406。 

程序 G P 3406 上 右 异 机 6000 一 $60E F 内 存 的 空间 ， 下 面 
介绍 一 下 它 的 主要 功能 和 使 用 。 

它 使 用 一 ,条 长 度 可 以 调节 的 线段 作为 章 图 的 工具 《实际 
二 是 一 个 点 的 造型 ), 这 条 组 段 可 以 在 屏幕 上 进行 上 、 下 、 左 、 
右 的 移动 ， 并 以 其 端点 为 中 心 不 断 旋转 ， 在 旋转 过 程 中 画 出 
或 清除 图 象 。 整 个 程序 的 执行 速度 〈 同 时 也 就 是 线段 旋转 或 
移动 的 速度 ) 可 以 通过 按 1 加 快 或 按 2 减 惕 ， 这 样 就 更 加 方 
便 了 用 户 的 操作 。 

各 功能 键 定义 如 下 ” 

人 P:， 旋转 并 绘 

@ 工 :， 旋 转 ; 

GO:， 旋转 并 清除 ; 

4 ESC : 退出 运行 ; 

图 [:， 线段 上 移 ; 

人 M: 线段 下 移 ; 

他 」:， 线段 左 移 ; 


; 线段 右 移 ; 
-， 造型 缩 小 ， 即 线段 变 短 ; 
:造型 放大， - 邯 线 段 变 长 ; 

四 1 加快 执 行 

田 2 碱 入 执行， 

在 具体 使 用 过 程 中 ; 可 将 造型 放大 : 缩小 及 移动 控制 的 
键 与 连续 键 REP T 一 二 起 按 下 ， 以 达到 寓 好 的 效果 。 值得 一 
提 的 是 ; 往 序 中 使 用 了 延 时 子 程序 $ 及 A8, 这 个 子 程 序 使 
用 累加 器 人 中 的 值 《 囊 90 一 争 下 ) 作为 延 时 参数 ， 以 控制 
延 时 的 时 间 长 短 。 

图 3.5 是 用 程序 G P 3406 绘 出 的 一 幅 图 案 。 


3 旺 ) 日 四 的 
二 个 己 : 妆 


| 3 
Te 


后 P3d4Dc 


E000-- 
后 002 一 
后 00 寺 一 
E006-- 
后 00- 
E00B-- 
后 00D-- 
后 00F 一 
6011 一 
6013 一 
后 015S 一 
5017- 
后 019 一 
E01B-- 
所 01E 一 
E020-- 
后 023 一 
6502S 一 
后 027-- 
6029- 
02PA 一 
E02C- 
602E-- 
6030- 
6032-- 
后 034 一 
后 036 一 
038-- 
603B- 
6E03D-- 
E03F-- 
6041 一 
60d43 一 
604S- 
6047-- 
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F 广 


0 C0 


CD0 


已 0 


6049 一 -- 3 CD ChMIP #$CDB 


604B-…  D0 0C BE 。 #6055S 
604D-: :E6 02 IIMC 。 才 02. 
604FE 一 PS 02 LDA 要 02- 
60S51l--:  C9 BE CMP ” # 委 BE 
60SS 一 30 0+4 BCC 划 E0SS 
60SS 一 : A9 00 LIDRB  # 香 00 
60S57-- 25 02 ST 户 和 莫 02 
60S3-- C9 58 0. CMP  。 # 区 SS 
60SB-- ， 旦 9 0C Bh 蝶 大 6069 
60SD- - CE E7 DEC 。 香 E7 
名 0OSF 一 一 站 EE7 LBDRA #EZ 
6061 二 - C9 01 CMP  。 间 村 01- 
6063-- B0 04 BCS ， 和 5069 
6E065S-- AS 01 LDA :# 委 01 
6067 一 SBS E7 STA 要 E7 
6506S~ C9 55 CMP HH#55. 
606B-- D0 02 BNE ”606F 
6E06D- EG E7 INC 条 E7> 
后 DEF 一 CS CC CMP 和 和 CC 
6071-: D0 04 -BEBNE 。 才 E077 
后 07S-- AS 00 LDA 村 东 00 
E07S- 2S5 03 STA 理 03 
6077 一 CS D0 CMP 间 和 DO 
所 079 一 D0 0+4 BINE  。 $EnZF- 
E07B-- AS 01 LBA 。 # 雪 01 
E07D- SS 03 STA 车 0 

后 07F 一 CS CF CMP  。 # 介 CF 
6091 一 D0 04 BNE ”条 ED0S7 
EpSs- AS 02 LDA 并 村 02 
609SS 一 SBS 03 STRA 旬 03 
6E0837- C9 Bl CMP  。 间 人 Bl 
650S9-- D0 02 BNE ”4#608D 
E09B-- C6 0+4 DEC 和 帮 04 
EQSD- C9 B2 - CMP #} 和 B2 
0SF 一 D0 02 BNE  。 雪 6033 
E091 一 EE 04 INC 。 划 04 
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Fd4 


并 莫 03 
4#FEFH 
非 03S 
利生 0 请 卫 
#60D0 
非 F 台 SS 站 
才 E0D0 
#FESD 
非 EQC2 
#E0DD 
非 FE01 
蓝 0 子 

村 莫 Q1 : 
辈 EDC 馆 
村 莫 吕 车， 
提 FEGFD 
二 6E0Df 
此 FE601 


全 00 


下 00 
村 非 斗 D 


塌 60CD 


此 501 昌 


苇 E017 


莫 吕 十 
4#FCAS 


拉 竹 DI 


4F73S0 
条 02 
生 01 
村 莫 D 
#F411 
非 00 


书记 


于 已 


04 00 04 00 00 00 


程序 说 明 : 
$6000 一 书 600A， 


$600FE 一 书 6016: 
$ 6017 一 $601A，; 
$601B 一 书 6022， 
蔬 6023 一 中 6027s 
$6028 一 $602D; 


囊 602E 一 书 6033: 


$6034 一 $603 A， 


$603B 一 书 6048: 


$ 6049 一 刷 6058: 
$ 6059 一 蔬 6068: 
囊 6069 一 书 606 下 : 
$606F 一 $6076; 
向 6077 一 $607 顾 ， 
$607F 一 $ 6086， 
$6087 一 $608C， 
$608D 一 $6092， 
身 6093 一 $6097， 


书 609C 一 书 60Al 


设 定 造型 表 始 二, 启动 高 分 辩 作 图 


页 。 
$600B 一 书 600E; 


造型 放大 倍数 $14 存 入 $$E7 中 。 
设 定 造型 显示 的 起 始 位 置 。 

设 定 旋转 角度 为 $01。 

读 到 按键 ， 并 清除 。 


， 如 按 入 了 9 (…， 则 退 出 。 


如 按 入 ] 键 ， 则 左 移 。 
如 按 入 HH 键 ， 则 清除 屏幕 。 


如 按 入 I 键 ， 则 上 移 。 
如 按 入 M 键 , 则 下 移 。 


如 按 入 左 箭头 , 则 造型 缩小 。 

如 按 入 右 箭头 ， 则 造型 放大 。 

如 按 入 世 键 ， 则 置 $03 的 值 为 $00。 
如 按 入 P 键 ， 则 置 ;$ 03 的 值 为 $01。 


-如 按 入 O. 键 ， 则 置 $03 的 值 为 $02。 


如 按 入 1 键 ,~- 则 加 速 。 
如 按 入 2 键 ， 则 减速 。 
置 颜色 代码 为 $03。 
XDR AVW。 


$60A2 一 $60A7，XDRAW。 
$60AB 一 $60B0: PRAW。 


$60B7 一 $60C1， 


$60C2 一 和 60C 巨 ,加 大 旋转 角 。 
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$60D0 一 $60D4， 执 行 延 时 。 
$60D5 一 $60 忆 9， 造 型 显示 子 程序 。 
$60A 一 $60EF: 造 型 表 。 


第 六 节 ”图 形 的 求 反 


求 反 ， 这 里 的 意思 是 将 一 幅 图 形 〈 包 括 背 景 ) 的 颜色 用 
它 的 补 色 来 蔡 换 。 不 同 的 颜色 分 别 用 它 不 同 的 补 色 来 蔡 换 。 

如 果 你 已 经 在 屏幕 上 画 好 一 幅 图 形 ， 它 的 颜色 是 白 的 ， 
而 背景 颜色 是 黑 的 ， 那 么 ， 求 反 以 后 图 形 将 是 黑 的 ， 背 景 是 
自 的 。 经 过 这 样 处 理 的 图 案 在 一 些 效果 方面 往往 与 原来 不 同 ， 
因而 我 们 有 时 候 就 需要 这 种 处 理 。 

求 反 的 原理 非常 简单 ， 只 要 用 $FEF 去 减 所 用 图 象 页 内 
的 每 一 个 单元 值 ， 把 差 重新 存 入 该 单元 即 可 。 以 BAS IC 为 
例 ， 对 第 二 高 分 辨 作 图 页 求 反 只 要 执行 语句 : 

〈《 行 号 》 FORI = 16384 TO 24575:，，POKEI ，255 一 

PEEK (1 ，NE 和 工 

其 中 16384 到 24575 即 第 二 高 分 辨 作 图 页 之 存 贮 空间 。 但 
执行 这 样 一 句 BAS IC 程序 速度 很 慢 ， 屏 幕 效果 也 比较 差 。 
为 此 , 改 用 机 器 语言 ， 它 可 以 在 极 短 的 时 间 内 完成 求 反 处 理 ， 
见 程 序 GP 3407。 


0300- ” A9 00 LDA 并 SO00 
0302-- 35 00 SITA SS$00 
0304-  A9 40 LDA 着 S40 

口 306-- 35 01 SA SO01 
0303-  AO 00 LDY 并 3S00 
D30A-- A9 PP LDA  。 间 SPFP 
030C-- F1 00 SBC  .(S00) ,Y 
D30E-- 91 00 STA (SO00) ,Y 
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0310- 
31TL- 
3 2 一 
马 3 工 咏 一 
0317- 
JU3iL9- 


031B- 


031C- 


工 NY 
BNE 


INC 
LDA 
CMP 


BCC 


RIS 
BRR 


S030A 
SO01 
S$SO1 
#$50 
S030A 


如 果 要 对 第 一 高 分 辨 作 图 页 求 反 ， 应 将 程序 中 : 
$305 单元 的 值 书 40 改 为 $20; 
币 318 单元 的 值 $$60 改 为 $40。 
执行 程序 G P 3407 可 通过 JSR$0300, 呼 叫 。 值 得 注意 
的 是 ， 当 重复 呼叫 第 二 次 时 ， 图 形 将 回 到 原始 状态 ， 即 相当 


于 没有 求 过 反 。 
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第 五 章 ”绘图 程序 的 
动 生成 软件 


在 本 篇 的 第 三 部 分 我 们 介绍 了 一 个 造型 的 建立 和 管理 软 
件 。 一 般 来 说 ,: 我 们 可 以 通过 调用 它 所 建立 的 造型 绘画 出 各 
种 各 样 的 图 象 。 但 由 于 各 种 绘图 软件 的 具体 要 求 不 同 ， 有 时 
并 不 需要 已 经 画 好 的 造型 ; 而 需要 绘图 的 程序 。 这 种 绘图 程 
序 往往 通过 对 一 系列 的 实验 数据 进行 画 点 、 画 线 而 建立 ， 其 
坐标 定位 繁琐 ， 工 作 量 大 而 村 燥 ， 是 程序 设计 者 感到 麻烦 的 
事 。- 

为 此 ， 我 们 用 6502 机 器 语言 编制 了 -一 个 使 用 光 点 移动 进 
行 作 图 ， 同 时 自动 生成 绘图 程序 的 软件 。 自动 生成 的 绘图 程 
序 也 是 机 器 语言 形式 的 ， 可 以 存 入 磁盘 或 调 入 内 存 运 行 。 运 
行 结 果 将 绘制 出 和 生成 程序 时 相同 的 图 形 。 这 样 ， 就 可 以 比 
较 方 使 地 将 这 一 程序 嵌入 到 应 用 软件 中 ， 以 实现 特定 的 绘图 
功能 ， 避 免 了 编制 这 种 功能 单 -- 而 过 程 复 杂 的 程序 。 

光 点 作用 和 程序 自动 生成 软件 从 功能 上 可 分 为 两 个 部 入 
即 通过 操作 者 的 按键 控制 光 点 移动 方向 绘 出 图 形 和 生成 绘制 
这 --- 图 形 的 程序 , 其 中 后 一 部 分 是 通过 采集 光 点 位 置 的 坐标 ， 
使 用 通用 程序 段 进行 处 理 而 实现 的 。 

整个 软件 的 运行 流程 〈 见 图 3.6): 

由 图 3.6 可 见 ， 光 点 在 移动 之 前 要 选择 一 个 键 ， 决 定 是 
画 点 、 不 画 点 或 结束 。 如 果 要 画 点 ， 则 点 的 两 全 坐标 5 困 3 个 
字 共 存放 》 要 追加 到 通用 程序 段 后 的 坐 战 党 泛 决 中 。 


置 绘 点 坐标 什 
到 资料 块 中 


显示 生成 程序 的 
起 始 位 置 和 长 度 | 
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(b ) 


3.6 
光 点 移动 控制 键 共 8 个 ， 根 据 键盘 分 布 及 习惯 选择 为 : 
1 工 键 , 向 F 2 M 键 : 向 下 
3 上 键 : 向 左 4 长 键 ， 向 右 
5 U 键 : 向 左上 6.0 键 : 向 右 士 
7 N 键 向 左下 8 ， 键 ;向 右 下 
下 面 我 们 列 出 清单 ， 并 对 之 作 分 节 简 单 说 明 。 


第 一 节 “通用 程序 段 和 有 关 指 针 的 设置 


见 程序 GP 3501 清 单 。 


Ooo 一 -4 SC ec 了 MPR 丰 上 ODSC 
OOO3 一 2O D8 F: JSR 本 F 3D8 
Ooo6 一 全 避 二 LBX 并 李 后 3 

ooco08B 一 20 FO Fw JSR 丰 F OF 
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的 


F4 


二 


OS 


厘 李 瑟 C，-… 


*EB: 


地 E9 


林地 性 口 


- 坦 事 口 G 


2 


( 生 EBy ,Y 


( 李 EB) ,Y 
事 OO 


( 相 E 日 ) ;Y 
丰 OO 

# 相 FF 
本 6029 


地 F457 


地 EB 


.可 6003Y 
后 D80S，Y 


间 丰 口 蕊 
二 EB 
地 E 
井 李 DO 


李 E9 


李 口 日 1 呈 … 
林 地 口 口 


厘 地 人 口 、 
.机 6OSE 


本 FF 
井 地 忆 L 


-本 E 旨 


间 夺 口号 


-要 E 咏 


”6C54-~ 
60S6- 
6058S- 
a056 一 
60SC- 
6C5E-- 


A93 30. 
BS5 EA 
AS9 00 
85 EB 
AS oO 
BS EC 


LDA 
STA 
LDA 
STA 
LDA 
STA 


# 相 9 
地 EA 
井 李 OO 
丰 候 忌 
井 革 折扣 
李 ELC 


从 书 6003 到 书 603B 为 通用 程序 块 * 由 于 绘图 过 程 中 建立 
了 坐标 序列 资料 ， 因 此 通用 程序 块 通过 设置 和 调整 指针 就 很 
容易 取得 这 些 坐标 ，. 并 将 其 画 出 来 。 当 遇 到 结束 标志 时 则 退 
出 运行 。 这 样 ， 一 幅 完整 的 图 象 就 通过 有 限 个 点 表示 出 来 。 


第 二 节 光 点 控制 
见 程序 GP 3502 清 单 。 
6060- ”A2 03S LDX  。 坦 地 OS 
6062- ”20 FO F6 JSR . $F6FO 
6065- ”A9 FF LDA 间 李 FF 
46067- 85 00 STA- #00 
60693- .AS5 EC LDA 和 EC 
606B- ” A4.EB LDY  。 $EB 
606D- ” A6 EA LDX 。 李 EA 
6O6AF- ”20 57 F4 JSR  。 $F4S7 
6072- ”20 35 FD JSR  。 $FDSS - 
6075- ” C9 DO CHMP 站 地 DO 
6077- ”DO 04- BNE  。 $607D 
60795- ”AS9 00 LDA 。 # 李 00 
607B- ” .FO 03 BEQ 和 6080. 
607D- ”4C 02 62 JMPF ”。 $6202 
6o080- “85 00 STA  $00 
6082- 20 35 FD JSR 。 $FDSS 
608S5-  C9 C9 CMP 。 井 地 C9 
6087- ”DO 16 BNE ” $609F 
60895- ”AS EC LDA 。 $EC 
608B- ” FO Ds 、 BEQ 。 $6060 
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D5 61 
9A_60 
E4-61 


ao0 60 


DSS 61 
D4. 6O 
E4 6l 


2 


全 .人 、 
伪 
aa 


OOE4 一 
如 各 E CO 一 
如 OOE 生 一 
6OEA 一 
如 人 EC 一 


CQEE-- 


OoOFO 一 
GeGF 2 一 
白 OF 4 一 
OoOF 7 一 


6OF9= 


和 COFB 一 
万 OFE 一 
轨 1OD1 一 
妇 10D4 一 
白 10G 一 
各 1 和 一 
石 1OA 一 
oloOD 一 
妃 I1OF 一 
心 1tL ti 一 
恕 11 到 一 


如 11S- 


妇 1 7 一 
如 119 一 
厂 蕊 一 
如 于 T 一 
一 口 一 
石 夺 22 一 
心 124 一 
心 127-- 
厂 1 二 人 一 
各 工 写 且 一 
恕 12F 一 
碑 1 .31 一 
各 工 生 过 一 


石 13 了 34 一 
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oO 


各 1 
各 1 
如 二 


恕 品 


妃 1 


如 1 


间 李 CB 


地 61OD 


本 EB 


间 李 口 局 
村 CQF7 
李 E 合 
井 地 1 唱 
直 如 OF7 
丰 6D60 
李 ma 

本 如 101 
李 恕 TDS 
丰 恕 14 
李 筷 1E4 
相 E 人 

村 如 1DA 
本 EB 
相 如 CQGeD 
井 相 与 
本 万 1 了 F 
李 EC 
村 如 11D 
本 EB 


李白 120 


李 E 全 
丰 所 120 
李 6D6OD 
相 OO 
村 如 1 全 全 
丰 厂 1DS 
本 如 125 
李白 1E4 
李 EC 
李 EA 


提 李 Cl1 
直 E 人 


妃 1 和 折 一 
折 1 3 日 - 
怠 芋 卫 台 一 
1SC 一 
力 1 了 F 一 
如 141-- 
白 143 一 
心 1 45 一 
如 147 一 
如 1 4 号 一 
如 14B-- 


石 1 4 一 - 


上 如 1 4F 一 
心 1 三 1 一 
右 二 号 4 一 
妃 1 上 一 
恕 二 强 一 
妇 工 与 卫 一 
力 1 三 E 一 
如 二 恕 1 一 - 
和 1 如 一 
各 人 各 与 一 
轨 1 折 7 一 


Otto9 一 


犬 1 丘 C 一 
如 荆 如 E 一 
斩 1 7 已 一 
如 1 7 一 


6174 一 ， 


,6T76- 
178- 
6176 一 
17C-- 
如 17E 一 
6181-- 
618S- 
各 日 二 一 


友人 ”加 


DSS ol 


E4 61 


ea ea 


LDA 
已 呈 CC 
STA 
JMPR 
CMF 
BNE 


DA 


BEQ 
LDA 
BRBNE 
LA 


CEMF 


BCE 


JMP 


LDA 
BEG 
JSR 
JMF 


JSR 


DEC 


INEC 


BNE 
INC 


JMP 


CMFP 


BNE 
本 ] 


CMP 
BCS 
LDA 


BNE 
LDA 
BNE 
JMP 


LDA 
BEQ 
JSR 


| 
间 丰 局 口 
“ 李 E 囊 
李 乒 扎 妃 怠 
间 地 亡 广 
丰 怠 1 妇 己 
二 EC 
本 妃 15 
相 E 吕 
丰 女 工 三 妈 
村 E 人 
井 本 二 日 
李白 1 4 


， 李 6060 


色 OO 
李 如 1SE 
村 61DS5 
地 6161 
村 61E4 
李 EC 
李 E 合 
李 台 1069 
李 EB 

本 6060 
并 村 CE 


李白 1AO 、、 


李 E 人 


一 坦 地 BE 


李 617E 
李 EA 
地 61861 
李 EB 
村 6lBi 
地 6060 
李 00 
61BB 
要 和 1 和 5 
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6t8S-- 4C FE 61 JMRE 地 61BE: 
61SB- ;20 E4. 61 JE 区 “地 61E4- 
61BE-- EEC: IT 衫 儿 “地 EC 
61997 AS E 有 : 人 有 EA 
右 E2- .38 SEC 
GT933-  。。 E: Gt SBE， 本 CGI 
6195- 95 E 人 STR SEA 
6197- AS5 EB:- LEbA 。 .$EB- 
6199- E9 00 SSC  。 # 李 00 
419B- -9 要 EB. SY” 5EB 
et9D=- ”4C 60. 60 JP 囊 6060 
61A0=- . C9 AE- CMR 间 各 AC 
6tA2- FO 06. BE 村 61AA 
elA4- ”20 38 FF 如 BR SFP3A 
ciA7-- ”4C 60 60 JP $6060 
6LAG- “AS5 EC : LBA4 地 EC 
elec-  :C9 BE 全 有- 井 寺 邓 E 
6lAE- ”BO 0 -BES :村 61B 
6LBG- AS E8. 志 了 人 各 EB -一 
6fB2- FoO' 09 BE 人 。 61BD 
6l1B4- ”AS EA LDA 地 EA 
6lBo6- CC9 18. CMRF， 井村 1 日 
6lBB- .90 03 BGE: 本 61BD - 
clBA- :4C 60 60 JMP ”本 6060. 
alBD- ”AS5 00. LDA 本 00 
6tBF-  FO 06. BEQ  。 李 6TC7 . 
6liCli- 20 D5. 61 JSR 事 和 1DS 
elC4~- 、 4C CA 61 JMF: “地 61CA 
61C7- PPO E4.. 41 JSR，” 韦 如 1E4 
atlCA-  E6 ECG- -INC:，”. 李 EC 
6iCCc- ES ERA INC，、 季 EA 
ctCE- DO 02. BNE .和 6l1D2 
.GlDO- ， E6 EB- INC， .可 EB 
6lD2- 4C 60 60- JMP，、 夺 6060 


程序 GP3502 是 软件 的 主要 部 分 ,二 :的 主要 功能 是 接受 、 
判断 按键 操作 ， 并 根据 不 同 的 按键 移动 光 点 ， 改 变 光 点 位 置 


指针 ， 采 集 光 点 坐标 数据 。 

其 中 调用 的 两 个 子 程序 $ 61D5 和 囊 61E4 分 别 是 清除 原 
光 点 位 置 及 采集 坐标 数据 的 子 程序 。 如 果 按 光 点 移动 键 之 前 
没有 按 P 键 ， 表 明 不 曾 点 ， 调 用 $61D5 子 加 序 清除 再 移动 
光 点 。 和 否则 不 清除 ， 且 调用 $61E4 子 程序 取得 坐标 数据 ， 再 
移动 光 点 。 


第 三 节 ” 几 个 子 程序 


见 程序 GP3503 清 单 。 

elD5- RAR2 00 LDX， 林地 00 
6lD7- 20 FO F6 JSR- “于 FFO 
61DA- ”AS EC LDA 二 EC 
6elDC- ” A4 EB LDY 本 EB 
6lDE-  A6 EA LDX 李 EA 
6lEO- 20 57 F4 JSR  。 本 F457 
61E3-- 60 RTS 

61E4- ”6A0 00 LDY 和 碍 #$0O0 
6tE4- AS EA LDA 地 EA 
6l1EB- 231 E8 STA 。”〈 季 EB) ,Y 
elEA- C8 INY  。 
6lEB- AS5 EB LDA  。 丰 EB 
olED- ”391 E8 STA (本 EB) ,Y 
6lEF- Ce INY 

6lFO- AS EC .LDA 本 EC 
olF2- 91 E 人 STA 《地 E 日 ) ,Y 
tlF4-- “AS E 和 LDIA 本 E8 
6lFa- 18 CLC 

6lF7- 69 0 ADC  。 # 村 03 
6lFS- 85 EB STA ”#E8 
elFB- ”65 E9 LDA 。” $E9 
6lFD- 69-00 ADC # 丰 DO0 
6tFF-- “95 E9 STA  。 李 E9 
6201- 60 RTS 
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, 厚 208 一 


6202- 
6204 一 
6a206- 


420B- 
620D- 


6229 一 


如 1 工 一 
白 怀 全 一 
斩 之 1 引 一 
如 之 1 一 
和 富 1 7 一 
恕 29 一 
恕 己 1 全 一 
如 < L- 
各 宇 E 一 
心 220 一 
如 二 二 全 一 
如 忆 全 4 一 
O227 一 


恕 二 二 下 一 
右 怀 EE 一 
如 二 三 口 一 
如 字 李 一 
乒 二 与 各 一 
各 二子 7 一 


-6239-- 
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423B- 
623D-- 
6240- 


和 之 4 二 一 


6245- 
6246- 
6248-~ 

250-~ 


6258- 


占 怠 
C2 PC5 
CE7 C9 
妥 D CS 
从 人生“ 口 品 


FD 


FD 


# 李 CS 


地 620B 
间 李 FF 和 
季 上 DBO， 
林地 FF 
井村 OO… 


《本 EB) ,Y 


《 李 EB) ,Y 


本 EE 日 ， 


提 直 口 了 
村 E 
李 E9 
间 李 OO 


SE9 
地 FSE2 


提 直 工 
本 25 

丰 FDBE 
间 直 口 牛 


地 扣 24 白 ,X 


直 FDED 


间 地 荆 . 子 
本 石 二 与 性 
李 E9 

丰 FDDA 
本 ES 日 

二 FDCDA 


CE BA A4 BB BO BzS 
CE CC4 hoO AD AD BA 


第 三 段 结束 程序 是 在 决定 绘 点 或 不 绘 点 时 按 匡 键 转 来 的 。 
它 的 作用 有 两 个 ， 即 设置 坐标 数据 序列 的 结 直 束 标志 $ FF 和 
显示 生成 程序 的 起 始 位 辕 、 结 束 位 置 : 
BEGIN:，$803 
END:〈 结 束 地 址 > 
因此 ， 生 成 程序 的 长 度 为 二 =( 结 束 地 址 -- $803 + 1， 
使 用 指令 ，BS AVE( 文 件 名 》，A$803, LS$ (长 度 ) 
或 - 
BRUN (文件 名 》 即 可 存 入 磁盘 或 调 入 内 存 运 
行 。 1 
至 此 ， 这 一 软件 就 介绍 完了 。 不 难 发 现 软件 有 两 个 不 够 
完善 的 地 方 。 其 一 是 作为 程序 本 身 不 能 灵活 使 用 内 存 空间 ,… 
而 固定 生成 程序 的 起 始 地 址 为 $803; 其 二 是 一 旦 画 好 点 后 不 
能 清除 ， 这 就 要 求 按键 无 误 ， 有 时 不 易 做 到 。 
对 于 第 一 个 问题 ， 处 理 比 较 简单 ， 只 需 在 移动 通用 程序 
前 要 求 用 户 输入 存放 始 址 ， 再 将 之 移入 指定 地 址 ， 并 根据 输 
入 地 址 计算 出 通用 程序 尾 〈 即 坐标 数据 存放 的 起 始 地 址 ), 放 
入 地 址 指针 书 E8、$E9 中 即 可 。 第 二 个 问题 稍 复杂 一 些 ， 
但 允许 修改 最 后 有 限 个 绘图 点 却 容易 做 到 。 例 如 可 以 用 < 键 
进行 修改 ,每 按 一 次 左 箭头 所 键 就 取出 最 后 一 组 ' 坐 标 值 ( 3 个 
字 节 ) 用 底 色 绘 画 ， 同 时 使 $ 已 8 中 已 9 指针 下 移 3 个 字 节 。 
有 兴趣 的 读者 可 区 就 以 上 问题 对 软件 进行 进一步 完善 ， 
在 此 不 再 歼 述 。 
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第 六 章 ”绘图 与 声音 


前 面 几 章 主要 介绍 了 机 器 语言 绘图 的 原理 .方法 和 技巧 ， 
并 比较 详细 地 剖析 了 几 个 实用 的 绘图 软件 。 我 们 知道 ， 绘 图 
较 多 地 使 用 在 机 械 、 建 筑 、 数 学 和 游戏 程序 设计 中 ， 如 何在 
绘图 过 程 中 加 入 声音 效果 ， 使 操作 过 程 “ 有 声 有 色 ” 是 绘图 
技术 中 值得 探讨 的 问题 。 尤 其 是 教学 和 游戏 一 类 的 程序 ， 没 
有 声音 的 配合 就 会 变 得 枯燥 无 味 ， 从 而 失去 吸引 力 和 应 有 的 
作用 。 

本 章 就 绘图 与 声音 方面 的 问题 作 一 些 初步 介绍 


第 一 节 ”发 声 的 基本 原理 


在 计算 机 的 主机 内 部 有 一 个 能 够 发 出 声音 的 扬声器 ， 这 
个 扬声器 可 以 通过 内 存 中 特定 的 地 址 单元 来 改变 状态 ， 当 扬 
声 器 由 一 种 状态 变 为 另 一 种 状态 时 ,就 发 出 一 声 短 音 。 这 种 
短 音 很 轻 ， 一 般 不 注意 不 易 听 见 。 但 连续 改变 扬声器 的 状态 ， 
并 设 定 每 次 发 音 的 强度 和 时 间 时 ， 就 能 组 合 出 各 种 各 样 的 模 
拟 声音 。 

在 APPLE 内 部 ， 控 制 扬声器 发 音 的 特定 地 址 单元 是 
49200〈$C030)。 不 管 是 取出 这 个 单元 的 数 还 是 把 一 个 数 存 
入 这 一 单元 ， 只 要 触及 到 这 一 单元 ， 扬 声 器 就 会 发 音 。 因 此 ， 
在 监控 状态 下 直接 输入 : 

C030w 和 执行 指令 : 
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8D 30 C0 STA $C030 
或 

AD 30 C0 LBDBA-$C030 具有 同样 的 效果 。 

顺便 说 明 一 二 ,使 用 B AS IC 指令 和 语句 也 能 使 扬声器 
发 音 ， 这 种 语句 即 ; 

了 PRIN 末 ,了 五 卫 K(49200) 

入 = 上 也 人 (49200) 
或 

POKE 4920,A 

但 由 于 BAS 1C 指 令 执行 时 要 经 过 复杂 的 解释 过 程 速 
度 较 慢 ， 因 而 发 音频 率 受到 限制 难以 满 叶 实 际 需要 。 使 用 
机 器 语言 就 可 以 大 大 提高 运行 速度 ， 从 而 加 快 扬声器 的 振 


第 二 节 机 器 语言 言 发 音 子 程序 


不 同 的 发 音频 率 和 发 音 时 间 构 成 了 各 种 各 样 的 声音 效果 ， 
因此 ， 如 果 能 够 控制 发 音频 率 的 高 低 和 发 音 时 间 的 长 短 就 能 
模拟 出 各 种 声音 。 这 种 控制 一 般 是 通过 机 器 语言 发 音程 序 来 
实现 的 ， 其 清单 见 G P3601 清 单 。. 
0300 一 AD, 30 G0 LDA- $C030 
0303 一 88 DEY 


0304 一 DO0 04 BNE $030A 
0306-- C6 01 DEC $0l 
0308 一 下 0 08 BEQ 和 0312 
030A 一 CA D 忆 六 
030 六 一 P0 FF6 BRNEE 中 0303 


257 


030D 一 A6 00 LDX  $00 

030F 一 4C 00 03 JMP  $0300 

0312 一 60 R 工 S 

其 中 零 页 单元 $ 00、$$01 中 分 别 存 放 着 发 音 周 期 和 发 音 
时 间 值 。 

程序 G P 3601 在 一 些 参考 书 上 有 详细 的 介绍 ， 在 此 不 再 
探究 ， 而 着 重 于 在 绘图 过 程 中 如 何 使 用 这 一 子 程序 发 出 恰当 


的 声音 。 


第 三 节 ”绘图 与 声音 ” 


绘图 与 声音 的 配合 是 教学 、 游 戏 一 类 程序 中 必 不 可 少 的 
内 容 ， 它 能 够 增强 程序 的 趣味 性 、 知 识 性 ， 使 人 同时 得 到 视 
党 和 听觉 上 的 享受 。 根 据 程序 在 某 一 运行 过 程 中 的 具体 情况 ， 
可 以 模拟 唱歌 、 说 话 、 爆 炸 、 碰 撞 等 各 种 声音 。 

下 面 我 们 举 儿 个 简单 的 程序 例子 来 说 明 。 假 设 机 器 语言 
发 音 子 程序 已 放 入 $300 开 始 的 内 存单 元 中 。 

一 、 射 击 模拟 

这 一 程序 利用 $606B 一 $6087 的 地 址 空间 存放 造型 表 ， 
表 中 设置 有 手枪 的 造型 。 程 序 则 存放 在 $6000 一 囊 606A 的 内 
存 中 ， 它 首先 进入 高 分 辩 作 图 状态 ， 并 在 屏幕 位 置 横 坐 标 为 
$00， 纵 坐标 为 $80 的 地 方 显 示 出 手枪 图 形 。 从 $ 6028 开 始 
程序 通过 发 音 和 子弹 射出 过 程 的 交替 执行 ， 实 现 了 较 好 的 模 
拟 效果 。 


见 程序 GP 3602 清 单 。 

妃 已 马 必 一 2D DB F3 可 所 民 囊 F . 尼 吕 
右 己 马 本 一 内 忌口 3 也 藉 间 直 让 卫 
石 口 怠 己 一 20 Fe Fw JSR 人 
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必 口 口 生 一 
龙马 妇 及 一 
回忆 SO 人 
蕊 号 已 E 一 
如 妃 1 0 一 
右 怠 1 二 一 
回扣 1 二 …- 
唱 1 7 一 


aol9- . 
<D1B- 


二 所 1E 一 


ac20-- 


<ao22- 
上 恕 如 2 4 一 
6 六 27-~- 
心心 二 日 一 
602A-- 
6G2C- 
GD2E-- 
如 GT 一 
右 品 卫 巴 一 
4035S- 一 


白马 二 7 一- 


6039 一 
如 3B 一 
恕 口 了 一 
ec40 一 
各 怠 络 二 一 
如 局 44 一 
汉 D46 一 
如 C45- 
恕 心 引 下 一 
斩 怠 丸 一 
恕 吕 己 已- 
刀口 -一 
女 马 忆 己 一 


“F7 


F4 


于 


Fa 


ST6 
LDA 
STA 
LDX 
JSR 
LDA 


EDX 


LDY 
JSR 
LEDA 
L DB 关 


蕊 Dy 


JSR 
NOP 
LDA 


和 
rr 
络 rt 


非 丰 口 且 
5 本 这 


2 
2 
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.60D57- 65 02 LDX 地 02 
ac55- ”= 20 5S7 F4 可 SR，“ 李 F4S57 


DSSC  EO C2. INC- 地 02 

605E- FoO 608 也 ER，、“ 李 606 日 

Cano- EA NDP:… 
"6061- 。E6 09- INC “ 李 00 
i .6063-  E6 01 INCE ”本 01 


6065- 4C 3B: 而 O: JMP” “本 603B 
onD6aB- ”4C 285:69 .-JMP ，. 李 6026 
ao06B- .01.01 b4 600 2D 
*6070-~ 2 2D 2D 2D 2D 35 3F 3F 
6078- 3F: SF 3F 3F 37 36 36 25 
ao0B0- 24 .6C 49 5E 1E t+7 SF FB 
6088- .03-00 96 


二 、 跳 伞 模 拟 
跳 企 模拟 程序 的 结构 和 上 一 个 程序 大 致 相同 。 其 运行 过 
程 是 一 架 降 落 伞 从 屏幕 上 端 下 落 汪 直至 屏幕 底部 ， 降落 过 程 


伴 有 有 趣 的 声音 ， 见 程序 G P 3603 清 单 。 


6000- 20 D8 FS3  、JSR ” $F3D8- 


6D003- ”62 03 LDX， 。 间 丰 ODS 
aoo5- 20 FO FO JSR 本 FOAFG 
6008- 89 50 - DA 亲本 SO 
oooa- 85 F8 STA- ”地 E8 
ooococ- ”pn9 60 LDS- 并 李 60 
apoE- 85 E9 STA 二 E9 
aotfo-  A9 10: LDA 和 # 相 10 
6012- .85 02 STA 本 D2 
col4- 92 ol LDX  。 厅 $O1 
oolea- 26 30 .F7 JSR.， 李 F73O 
6D19- ”05 02 LDA 。 丰 02 
aolB- A2 80 LDX  。 # 村 BO 
aotlD- ”AnAO DO LDY 和 间 本 OO 


OoOltF 一 <O lt F4 JSR 李 F411 


6022- AAA6O 1A LDX 本 1A 
6024-- ”ANA4 1B LDY  。 相 1B 
ao26- ”AhA9 600 LDA 井村 DO 
60928- 》 20 SD 上 和- 河 SR 。 针 659 
6O2B- -920DOl LDX  #s$0l 
co2zp- 20 30 F7 JSR  。 地 F7SO 
ao030- ”AS5 02 LDA 和 直 D2 
6os2-  A2 80. LDX # 本 BC . 
034- phDOoO LDY  。 提 后 DD 
6036- 20 1t1 fF4 .JSR -各 F41t 
6039- APA6 1 LDX 本 1 
.03B-  A4 1B LDY 直 18R 
6o03D- ”AhA9 00 1LDA， 间 直 Do 
， 60zF- :20 5D F6 JSR 
co42-  E6c2 INC  $02 
044--  E6 00 INC “ 相 O 
oa046- ”99 10 LDA  。 间 直 1 
604B- 85 0 STA 本 01 
6D4A- 20 00 03 JSR 。 $0300 
6oO4D~ :4C:14 60 JMP 地 6014 


多 
-小 
-总 

忆 


。 6050- 01.01 .64 09 1 9D 48 20 
1 ao058- 2B 060D yo 22 06 75 75 DEF 
6060- JIE 1E 1E OF 18 OF 19 OF 
cc6e8B- 18 4D 08 19 36 36 D7 0OE 
oo70- 6E 2C BO 3 SF 了 37 .2D- 20 
46078B- 3E 3F 6aF 135 3SE 4D 39 6C 
680- 09 00 2D 4D 49 49 00 DB 


不 难 发 现 ， $6014 一 $602A 和 串 602B 一 下 6041 是 两 个 
完全 相同 的 程序 段 ,也 完全 可 以 用 两 次 呼叫 这 样 一 个 子 程序 
来 代替 ， 但 其 产生 的 效果 是 不 同 的 。 第 一 个 程序 段 是 显示 跳 
伞 造 型 ， 第 二 个 程序 段 则 是 清除 跳 全 造 型 , 因为 其 中 用 了 
$F 65D 的 造型 调用 子 程序 ， 而 不 是 $ 下 601。 
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人 


作为 本 篇 的 一 个 结束 ， 我 们 再 恋 一 谈 比 较 完善 的 绘图 程 
有 些 基本 功能 。 这 种 基本 助 能 指 的 是 除了 完成 
计算 、 绘画 之 外 的 能 增强 程序 实用 性 、 透明 性 、 可 扩充 性 和 
方便 用 户 操作 等 方面 的 功能 。 

这 个 问题 显然 没有 统一 的 标准 ， 但 从 程序 设计 本 身 以 及 
操作 者 使 用 两 个 方面 来 考虑 ， 不 外 乎 以 下 几 种 基本 功能 。 


第 一 节 ”程序 结构 清晰 


主 程序 、 子 程序 及 资料 段 规 格 存放 ， 使 程序 易 读 、 易 修 
改 、 易 扩充 。 按 照 一 般 的 习惯 ， 子 程序 存放 在 一 个 独立 的 内 
存 段 中 ， 不 与 其 它 部 分 混在 一 起 ， 资 料 段 则 通常 置 于 整个 枉 
序 的 末尾 。 为 了 节省 内 春 空 间 ， 简 化 主 程序 的 运行 流程 ， 有 
时 表面 上 看 来 不 能 统一 的 两 个 程序 段 也 可 通过 传送 参量 统一 
起 来 。 

例 1, 见 程序 G P 3701。 

0300 一 A2 00  LDXK 共 $00 

0302 一 20 20 03 JSR  $0320 - 

0305 一 20 35 FD JSR $FD35 

0308 一 A2 3F 

030A 一 20 20. 03 JSR  $0320 
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0320 一 _BD 
0323 一 Fo0 
0325 一 20 
0328 一 上 8 
0329 一 “D0 
0328 一 60 
0330 一 D0 
:0338 一 D9 
0340 一 CC1 
0348 一 CD 


30 
06 
上 忆 


F5 


D2 


Al0 
C9 


CLC5 


03 


上 D 


(L5 


CB 


也 4 


C 芋 


LDA 
BEQ 
JSR 
INX 
BNE 


RTQo. 


D3 
LC5 
A0 
D4 


D3 
D9 
CC1 
5D 


$$ 03 30,X 
$ 032B 
$FDEPD 


$ 0320 


AI0 C1 CE 
38D :00 7 
AI0 CD CF 
00 


程序 GP 3701 的 目的 是 先 显 示 “PRES S ANY. 天 Y“ 
信息 ,并 等 待 按 入 任 一 键 , 再 显示 “WAIT A MO-MENT”。 
显示 的 两 行 信息 并 不 相同 ， 本 来 需要 两 段 相似 但 不 相同 的 程 
序 来 完成 。 这 里 则 采用 了 给 同一 子 程序 传送 不 同 的 资料 定位 
指针 《 暂 存 器 X ) 来 调用 同一 子 程序 $$0320。 显 然 ， 这 样 做 
节省 了 内 存 ， 且 使 主 程序 变 得 简洁 明了 。 


程序 设计 灵活 


有 暂停 或 退出 绘图 的 功能 。 这 就 要 求 在 入 环 图 内 有 键盘 
扫 提 和 判别 程序 。 例 2, 在 一 个 循环 圈 内 嵌入 这 样 一 段 程序 ， 


见 CP 3702 。 


0300 一 AD 10 
| 

0303 一 CC9 80 

0305 一 90 13 


第 


CO0 LDA、$c 010 
CMP 失 $80 


em 


一 


没有 按键 ， 
继续 执行 


BCC 和 $O31A 


503 


CC00 和 


BNE 1 的 0F 撤 TES 键 遇 出 


030E- - 50 
on F0 07 8B 丘 Q 1 
0313 一 A9 00 工 DA 间 $00- 
03 荐 一 90 二 考 2C07STAz 和 
0348 光 下 0 :县 -BEQ，$$0208 
胡 旅 一 人 2 


ne 行 扫描 如 发 现 有 按 
， 则 判断 人 
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“是 ESC 键 退出 运行 
“是 其 它 非 回 车 键 ， on 站 其 效果 即 是 
暂停 执行 
.在 暂停 时 如 按 入 回 这 链 划 继续 执行 。 
这 样 ， 就 使 用 户 的 操作 具有 一 定 的 灵活 性 ， 见 图 3. 7。 


第 三 节 力 衣 本 有 说 明 


做 到 图 文 并 茂 ， 使 人 二 目 了 然 。 这 种 交 字 说 明 可 以 借助 
图 象 文 本 混合 页 面 的 下 端 显示 ， 也 可 以 使 用 造型 汉字 或 字符 
在 图 面 上 显示 。 了 


是 “第 四 节 提示 法 带 事 页 


需要 提醒 用 户 特 别 注意 的 文字 说 明 或 图 形 部 分 要 用 不 同 
颜色 或 交替 闪烁 作为 标志 。 另 外 ， 由 和 书 机 器 语言 执行 速度 很 
快 六 世 要 时 应 加 从 午时 毕 程 内 党 和 免 图 象 四 烁 太 快 而 无 法 看 
清 。 这 种 延 时 可 以 调用 $ 书 FCA8 和 的 系统 程序 实现 : 
勾 X 汉 又 - Ag， 40- EDA 失 $40: 
xxxx-'20 Ag FC JSR SFCA8 


其 中 累加 器 A 的 值 决定 延 时 时 间 ， 和 A 值 为 $01 时 时 间 最 
短 。 
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结 束 请 


随 着 微型 计算 机 的 广泛 应 用 ， 计 算 机 绘图 已 成 为 一 门 重 
要 的 设计 技术 ， 而 6502 机 器 语言 又 是 一 种 绘图 功能 较 强 的 程 
序 语 言 ， 它 具有 快速 、 灵 活 、 方 便 等 优点 ,被 普遍 应 用 在 游 
戏 程序 : 辅助 教学 、 电 路 设计 、 机械、 建筑 设计 等 各 个 方 
面 。 

基于 上 述 原 因 ， 本 篇 从 6502 机 器 语言 的 绘画 原理 出 发 ， 
较为 详细 地 介绍 了 它 的 绘画 功能 及 相应 的 程序 设计 方法 ， 并 
通过 几 个 实用 绘画 软件 由 浅 入 深 剖 析 了 6502 的 绘图 技术 及 多 
种 绘图 技巧 。 特 别 是 造型 管理 等 几 个 软件 ,: 设 计较 为 精 煤 ， 
技巧 性 、 趣 味 性 较 强 ， 又 具有 较为 丰富 的 绘图 功能 ， 读 者 可 
以 从 中 看 到 6502 绘 画 的 概 狐 。 

应 该 说 明 的 是 ， 绘 图 技术 已 经 涉及 到 各 行 各 业 以 及 各 种 
图 形 设 计 ， 而 本 篇 所 介绍 的 仅仅 是 6502 绘 图 的 一 般 方 法 和 技 
巧 。 因 此 ， 在 解决 一 个 实际 问题 时 往往 需要 针对 具体 情况 
融 进 这些 方 法 和 技巧 ， 以 达到 预期 的 目的 。 

另外 ， 为 了 使 绘图 软件 具有 更 加 清晰 的 人 机 界面 ， 也 为 
了 软件 本 身 的 易于 扩充 和 维护 ， 让 B AS IC 语言 和 机 器 语言 
结合 起 来 使 用 ， 会 收 到 更 好 的 效果 。 
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